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

masaa8427 masaa8427    3   26.02.2021 09:26    3

Ответы
BlackStile BlackStile  26.02.2021 09:30

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика