Mostrar maior e menor
Algorítimo para mostrar o maior e o menor valor de 5 números digitados, que depois você pode alterá-los para quantos quiser.
Descrição
Algorítimo para mostrar o maior e o menor valor de 5 números digitados, que depois você pode alterá-los para quantos quiser.
Program maior_menor ;
var
valores: array [1..5] of integer;
maior,menor,i:integer;
Begin
for i:= 1 to 5 do begin
write ('digite um valor inteiro: ');
readln (valores[i]);
end;
maior:=valores[1];
menor:=valores[1];
for i:= 1 to 5 do begin
if valores[i]>maior then begin
maior:=valores[i];
end;
if valores[i]<menor then begin
menor:=valores[i];
end;
end;
writeln ('o maior valor e ', maior, ', e o menor valor e ', menor);
End.