Составить программу, вычисляющую среднее арифметическое n чисел, вводимых с клавиатуры.Паскаль.

Предыдущий
вопрос Следующий
вопрос

var

s, i, a: integer;

begin

s:=0;

writeln('Введите количество чисел');

readln(n);

for i:=1 to n do

begin

writeln('Введите число');

readln(a);

s:=s+a;

end;

writeln('Среднее арифметическое введенных чисел = ', s/a);

end.