Question

Уровень A. Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений.
Пример:
Массив:
1 2 3 4 5
Среднее арифметическое 3.000
Пайтон

Answer 1

const

 n = 5;

 

var

 a: array[1..n] of integer;

 i: integer;

 sr: real;

 

begin

 randomize;

 sr := 0;

 for i := 1 to n do

 begin

   a[i] := random(101);

   sr := sr + a[i];

 end;

 writeln(sr / n:8:2);

end.