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

1

Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2013-03-02T15:51:32+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.