Question

Составите программу (Паскаль)
Дан ряд из n чисел. Найти среднее арифметическое.

Answer 1

var

 n,s:integer;

begin

 readln(n);

 for var i := 1 to n do

 begin

   var a:integer;

   readln(a);

   s += a;

 end;

 write(s/n);

end.