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


Program Pzim ; ALEATORIO 1000
var
soma,cont,n,maior,menor:inteiro;
media:real;
iniciosoma:=0; maior:=0; menor:=1000;
escreva('Este programa gera 1.000 números aleatório entre 0 e 1000');
for cont:=1 to 1000 do
Begin
randomize;
n:=random (1000); 
soma:=n+soma;
se (n>maior) entao;
maior:=n;
se (n<menor)entao; 
menor:=n;
fim;
media:=(soma/1000);
escreva('A soma dos números gerados foi: ',soma);
escreva('A média dos números gerados foi: ',media:2:2);
escreva('O maior número gerado foi: ',maior);
escreva('O menor número gerado foi: ',menor);
fim.