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

Nezilik Nezilik    3   25.05.2019 02:20    0

Ответы
саша4290 саша4290  21.06.2020 01:27
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.

Вот
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика