Exercicio 06

6 inclua a posição do maior e do menor valor encontrado.

Program ;
var
maior, menor, soma, cont,con: integer;
media :real;
vetor: array[1..50] of integer;
pmaior

Begin
maior:=0;
menor:=101;
soma:=0;
cont:=0;

for cont:=1 to 50 do
begin
randomize;
vetor[cont] := random(99)+1;

if(vetor[cont] > maior)then
maior := vetor[cont];

if(vetor[cont] < menor)then
menor := vetor[cont];

soma:= soma + vetor[cont];
end;

media:= soma/50;

for con:=1 to 50 do
write(' [',vetor[con],'] ');

writeln('');
writeln('');
writeln('A media dos numeros e ',media);
writeln('O maior numero e ',maior);
writeln('O menor numero e ',menor);


End.