Запишите программу формирования и вывода массива из 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.