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

Question

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

Answer 1

//Блок-схема во вложении
var n,a,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
r:=r+a;
end;
r:=r/n;
writeln(r);
end.

---