Write a program for generating and outputting an array of 20 random numbers (from the range from 0 to 1000)

Write a program for generating and outputting an array of 20 random numbers (from the range from 0 to 1000) and calculating their average value.

Var
m: array [1 … 100] of integer;
i, s, n: longint;
a: real;
begin
randomize;
writeln (‘Array:’);
for i: = 1 to 20 do
begin
m [i]: = random (1001);
write (m [i], ”);
s: = s + m [i];
end;
a: = s / 20;
writeln (‘Arithmetic mean:’, a: 2: 3);
end.