Exercício 05 Repeat - 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 repeat05 ;
uses crt;
var
altura,menor,maior:real;
i : integer;
 Begin
   i:= 1;
   Write(i,' Informe Altura: ');
   readln(altura);
       maior:= altura;
       menor:= altura;       
  repeat
      i := i + 1;    
   Write(i,' Informe Altura: ');
   readln(altura);
       if altura > maior then
       maior := altura;
    if altura < menor then
        menor:= altura;    
  until (i = 50);
  clrscr;
   Writeln('Maior Altura: ',maior:0:3);    
   Writeln('Menor Altura: ',menor:0:3);    
  Writeln('                    by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação