Написать программу, которая вычисляет среднее арифметическое n чисел. Выполнить в Pascal.

Var n, i: integer;

avg: real;

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

begin

//запрос необходимых характеристик

Write ('Введите количество чисел: '); Readln (n);

Writeln ('Введите числа');

i:=n;

While (n>0) do

begin

readln (a[n]);

n:=n-1;

end;

//вычисление среднего арифметического

avg:=0;

For n:=1 to i do avg:=avg+a[n];

avg:=avg/n;

//вывод

Writeln ('Среднее арифметическое введённых чисел равно ', avg:4:3);

end.