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

Есть ответ
17.12.2022
497

Ответ


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.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.