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

Предыдущий
вопрос Следующий
вопрос

program Average;

var
arr: array[1..5] of Integer;
i, sum: Integer;
average: Real;

begin
Randomize;

sum := 0;

for i := 1 to 5 do
begin
arr[i] := Random(101);
sum := sum + arr[i];
Write(arr[i], ' ');
end;

average := sum / 5;

Writeln;
Writeln('Среднее арифметическое: ', average:0:3);
end.