Exercicio 02

2 Faça um programa para ler 20 numeros, calcular a media o maior e o menor número.

Program Questao2 ;
Var
num, maior, menor, cont, soma : integer;
media : real;

vetor:array[1..20]of integer;


Begin
cont:=0;
for cont:=1 to 3 do
begin
Writeln ('Escreva o numero');
readln (vetor[cont]);
soma:=vetor[cont]+soma;
if (vetor[cont] >= maior) then
maior:=vetor[cont];
if (vetor[cont]<= menor) then
menor:=vetor[cont];
end;
media:=soma/3;
Writeln ('O maior numero e ', maior);
writeln ('O menor numero e ', menor);
writeln ('A media é ', media);

End.