составить программу которая запрашивает n целых чисел и вычисляет их среднее арифметическое

Question

Информатика

Юла

6 августа, 22:57

составить программу которая запрашивает n целых чисел и вычисляет их среднее арифметическое

+2

Ответы (1)

Знаете ответ?

Радим · Answer 1

var n, sum, i, j:integer;

begin

sum:=0;

write ('Enter N: ') ;

readln (n) ;

writeln ('Enter N numbers:') ;

for i:=1 to n do

begin

read (j) ;

sum:=sum+j;

end;

writeln ('Average is ', sum/n)

end.