составьте для вычислителя алгоритм, пользуясь которым он запросит последовательность N чисел и сообщит среднее арифметическое.

проверь орфографию и если не будет потом работать измени i:=1 на i:=0

pascal

var

n, z, l:integer;

a:array[1 ... 30] of integer;

begin

readln ('kol-vo chisel-', n) ;

for i:=1 to n do

begin

readln (a[i]) ;

l=l+a[i];

end;

z=l/n;

writeln ('srednee arifm-', z) ;

end.