Задано N целых чисел. Вам необходимо найти среднее арифметическое этих чисел. Гарантируется, что среднее арифметическое всегда целое.

Question

Информатика

Филиппыч

22 февраля, 09:25

Задано N целых чисел. Вам необходимо найти среднее арифметическое этих чисел. Гарантируется, что среднее арифметическое всегда целое.

+4

Ответы (1)

Знаете ответ на вопрос?

София · Answer 1

Var count, a, b, N, i: integer;

Begin

writeln ('N = ') ;

readln (N) ;

for i : = 1 to N do

begin

write (i, ': ') ;

readln (a) ;

b : = b + a;

count : = count + 1;

end;

writeln ('> ', b/a) ;

end.

Вот, прошу =)