Exercício 03 For - 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 for03;

uses crt;
var 
menor,maior,num,i:integer;
BEGIN
    Write('1 Informe Valor: ');
    readln(num);
    menor:=num;
    maior:=num;
        for i := 2 to 20 do
            Begin
                Write(i,' Informe Valor: ');
                readln(num);
                    if num > maior then
                        maior:=num;
                    if num < menor then
                            menor:=num;
            End;
    Writeln('Maior: ',maior);                        
    Writeln('Menor: ',menor);                
END.

Categories: Pascal , Programação