Запишите программу формирования и вывода массива из 20 случайных чисел (из диапазона от 0 да 1000) и вычисления их среднего значения

Var

m:array[1 ... 100] of integer;

i, s, n:longint;

a:real;

begin

randomize;

writeln ('Массив:');

for i:=1 to 20 do

begin

m[i]:=random (1001);

write (m[i],' ');

s:=s+m[i];

end;

a:=s/20;

writeln ('Среднее арифметическое: ', a:2:3);

end.