Регистрация
настя6063
17.08.2020 18:21
Информатика
Есть ответ 👍

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

122
456
Посмотреть ответы 2

Ответы на вопрос:

max78789867
max78789867
4,6(84 оценок)

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.

lolipop891
lolipop891
4,4(50 оценок)
Var u, r: integer; begin     read(u, r) end.

Популярно: Информатика