Exercicio -Numeros aleatorios 1000

Construa um algoritmo para gerar aleatório 1000 números, calcular o somatório, a média, o maior e o menor número gerado.

Program 1000_numeros;

var

x,menor,maior,n: integer;

media:real;

Begin

maior:=0;

menor:=1001;

for x:=1 to 1000 do

begin

delay(3);

n:=random(1001);

Writeln(n);

if n

menor:=n;

if n>maior then

maior:=n;

media:=media+n;

end;

Writeln('Maior numero ',maior);

Writeln('Menor numero: ',menor);

Writeln('Somatorio ',media:7:1);

Writeln('Media ',media/1000:4:2);

Writeln(' ');

Readln;

End.