Даю 35 баллов. Составить блок - схему. Задание: Определить среднее арифметическое...

Question

Даю 35 баллов. Составить блок - схему.
Задание: Определить среднее арифметическое последовательности чисел a[1], a[2], … a[n]. Числа n, a[1], a[2], … a[n] вводятся с клавиатуры.

Answer 1

Var
 n,i,a:integer;
 s:real;
begin
readln(n);
for i:=1 to n do
 begin;
  readln(a);
  s:=s+a;
 end;
s:=s/n;
writeln(s);
end.  

---