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

1
Ограничения:
1 <= N <= 100
1 <= A <= 10^1001
Формат вывода:
Ответ на задачу – среднее арифметическое заданных чисел.

Ответы и объяснения

2013-10-18T10:16:47+00:00
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.

Вот, прошу =)