составьте для вычислителя алгоритм, пользуясь которым он запросит последовательность 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
readln(a[i]);
l=l+a[i];
end;
z=l/n;
writeln('srednee arifm-',z);
end.