Fazer um Programa em Pascal onde Entra 3 Números e Determina o Menor com While

De acordo com o pedido do nosso leitor Cristofer:

Fazer um programa em Pascal onde você deverá entrar com 3 números e deverá mostrar qual deles é o menor utilizando o comando while.

Ai vai a resposta. Qualquer dúvida entre em contato.

Program Menor_Numero_While;
Uses Crt;
var
i : Array [1..3] of Integer;
j : Integer;
menor : Integer;
Begin
ClrScr;
for j := 1 to 3 do
Begin
Write ('Entre com ',j,'o numero:');
ReadLn(i[j]);
End;

// Determinando o menor com while
menor := i[1];
j := 2;
while j <=3 do
begin
if i[j] < menor then menor := i[j];
j := j + 1;
end;
WriteLn( 'O menor numero eh: ', menor);
ReadLn;
End.

Nenhum comentário:

Postar um comentário