Question

Pascal нужно написать программу с алгоритмом 3.1 и 3.2 , 6

Answer 1

Var  n, i, sum, kol, age :integer;  sr :real;
begin
  sum:= 0; kol:= 0;  readln(n);  for i:= 1 to n do  begin    readln(age);    sum:= sum + age;    inc(kol);  end;  sr:= sum/kol;  writeln(sr);
end.