ПАСКАЛЬнайти среднее арифметическое элементов массива, элементы заданы датчиком случайных...

Question

ПАСКАЛЬ
найти среднее арифметическое элементов массива, элементы заданы датчиком случайных чисел. размер произвольный

Answer 1

Var a: array [1..10] of integer;
    i, m: integer;
begin
     m := 1;
     for i := 1 to 10 do
     begin
          a[i] := random(20);
          writeln('[', i, '] => ', a[i]);
          m := m + a[i];
     end;
     writeln(m / 10);
end.
=)