Leia 5 números e apresente o menor e o maior valor
Pseudocódigo:
programa exercicio19
var
n1, n2, n3, n4, n5, menor, maior : inteiro;
inicio
leia n1;
leia n2;
leia n3;
leia n4;
leia n5;
menor ← 99999;
maior ← 0;
se (n1 < menor) entao menor ← n1; fim_se; se (n1 > maior) entao
maior ← n1;
fim_se;
se (n2 < menor) entao menor ← n2; fim_se; se (n2 > maior) entao
maior ← n2;
fim_se;
se (n3 < menor) entao menor ← n3; fim_se; se (n3 > maior) entao
maior ← n3;
fim_se;
se (n4 < menor) entao menor ← n4; fim_se; se (n4 > maior) entao
maior ← n4;
fim_se;
se (n5 < menor) entao menor ← n5; fim_se; se (n5 > maior) entao
maior ← n5;
fim_se;
escreva menor, maior;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 24/03/2014
Program exercicio19;
uses crt;
var
n1, n2, n3, n4, n5, menor, maior : integer;
Begin
writeln('Insira Numero 1');
readln(n1);
writeln('Insira Numero 2');
readln(n2);
writeln('Insira Numero 3');
readln(n3);
writeln('Insira Numero 4');
readln(n4);
writeln('Insira Numero 5');
readln(n5);
menor := 99999;
maior := 0;
if (n1 < menor) then
menor := n1;
if (n1 > maior) then
maior := n1;
if (n2 < menor) then
menor := n2;
if (n2 > maior) then
maior := n2;
if (n3 < menor) then
menor := n3;
if (n3 > maior) then
maior := n3;
if (n4 < menor) then
menor := n4;
if (n4 > maior) then
maior := n4;
if (n5 < menor) then
menor := n5;
if (n5 > maior) then
maior := n5;
writeln('Menor: ', menor, ' | ', 'Maior: ', maior);
writeln('Pressione para fechar');
readkey;
End.
Veja também:
