program project20;
 
uses
SysUtils;
 
var
qtdNumeros: Integer;
i: Integer;
maiorNumero: Integer;
menorNumero: Integer;
valorInformado: Integer;
vSoma : Integer;
vMedia : Double;
begin
 
Write(Utf8ToAnsi('Informe a quantidade de números: '));
ReadLn(qtdNumeros);
 
{ Testando se a quantidade informada é válida. }
if qtdNumeros < 1 then
begin
Write(Utf8ToAnsi('A quantidade de números precisa ser maior de zero, '+
'mas foi informado: '), qtdNumeros);
 
{ Para a execução }
Readln;
Exit;
end;
 
{ Inicializa a soma com zero }
vSoma:= 0;
 
{ Faz a leitura de 1 número, que por padrão será maior e menor }
Write(Utf8ToAnsi('Informe o 1º Número: '));
Readln(valorInformado);
 
maiorNumero:= valorInformado;
menorNumero:= valorInformado;
vSoma:= vSoma + valorInformado;
 
{ Começa o laço do dois, porque já lemos um fora do laço }
for i := 2 to qtdNumeros do
begin
Write(Utf8ToAnsi('Informe o ' + i.ToString + 'º Número: '));
Readln(valorInformado);
 
{ Verifica se o número lido é o maior }
if valorInformado > maiorNumero then
begin
maiorNumero:= valorInformado;
end;
 
{ Verifica se o número lido é o menor }
if valorInformado < menorNumero then
begin
menorNumero:= valorInformado;
end;
 
{ Acumula a soma dos números lidos }
vSoma:= vSoma + valorInformado;
end;
 
{ Calculando a média, SEMPRE depois do laço. }
vMedia:= vSoma / qtdNumeros;
 
{ Exibindo o relatorio }
WriteLn(Utf8ToAnsi('Quantidade de números lidos: '), qtdNumeros);
WriteLn(Utf8ToAnsi('Maior número lido: '), maiorNumero);
WriteLn(Utf8ToAnsi('Menor número lido: '), menorNumero);
WriteLn(Utf8ToAnsi('Média dos números lidos: '), FormatFloat('#0.00', vMedia));
 
ReadLn;
end.