Exercício 05 While - Pascal

5) Construa um algoritmo que leia um conjunto de dados contendo altura de 50 pessoas, e depois,
calcule e escreva a maior e a menor altura.

Program while05 ;
var
cont: integer;
n,maior,menor: real;
 Begin
   Write('1 Informe Altura: ');
   readln(n);
   maior := n;
   menor := n;
   cont  := 2;
  while (cont <= 50) do
   Begin
    Write(cont,' Informe Altura: ');
    readln(n);
    if (n < menor) then
     menor := n;
    if (n > maior) then
     maior := n; 
   cont := cont + 1;
   end;
  Writeln('Menor: ',menor:0:2);
  Writeln('Maior: ',maior:0:2); 
  
 End.

Categories: Pascal , Programação