Exercício 05 For - 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 for05;
uses crt;
var 
i : integer;
mai_alt,men_alt,altura:real;
BEGIN
    Write('1 Informe Altura: ');
    readln(altura);
        men_alt:=altura;
        mai_alt:=altura;
    for i := 2 to 50 do
        Begin
            Write(i,' Informe Altura: ');
            readln(altura);
                if altura < men_alt then
                    men_alt:=altura;
                if altura>mai_alt then
                    mai_alt:=altura;
        End;
    Writeln('Maior Altura: ',mai_alt:0:3);
    Writeln('Menor Altura: ',men_alt:0:3);
END.

Categories: Pascal , Programação