Exercício 03 While - 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 while03 ;
var
cont,n,maior,menor: integer;
 Begin
   Write(' Informe: ');
   readln(n);
   maior:= n;
   menor := n;
   cont := 1;
  while (cont < 20) do
   Begin
    Write(' Informe: ');
    readln(n);
    if (n < menor) then
     menor := n;
    if (n > maior) then
     maior := n; 
   cont := cont + 1;
   end;
  Writeln('Menor: ',menor);
  Writeln('Maior: ',maior);  
 End.

Categories: Pascal , Programação