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

Question

Информатика

Бонифат

26 ноября, 21:27

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

+5

Ответы (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.