Exercício 03 Repeat - Pascal

3) Escreva um algoritmo que leia um conjunto de 20 números inteiros e mostre qual foi o maior e o
menor valor fornecido.

Program repeat03;
uses crt;
var
 menor,maior:integer;
 i,n :integer;
Begin
    i := 1;
  Write(i,' Informe Numero: ');
  readln(n);
    menor := n;
    maior := n;    
  repeat
        i := i + 1;
    Write(i,' Informe Numero: ');
    readln(n);
        if n > maior then
            maior := n;
        if n < menor then
            menor := n;    
  until (i = 5);
    Writeln('Maior: ',maior);
    Writeln('Menor: ',menor);   
End.

Categories: Pascal , Programação