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

Question

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

Comments

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

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.

Вот, прошу =)