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

Question

Информатика

Эмилия

2 июля, 22:07

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

+3

Ответы (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.

Вот, прошу =)