Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:maior-menor_numeros

Maior e Menor número de um vector

program maior_inserido;
uses crt;
var vector : array[[1..10]] of integer;
    numero, i, maior, menor  : integer;
 
begin
clrscr;
repeat
writeln('Introduza um numero entre 2 e 10 para verificar qual ? o maior');
readln(numero);
until (numero > 1) and (numero <= 10);
for i := 1 to numero do
begin
writeln('Introduza um numero:');
readln(vector[[i]]);
end;
 
maior := vector[[1]];
menor := vector[[1]];
 
for i:=2 to numero do
begin
if vector[[i]] > maior then
maior := vector[[i]];
if vector[[i]] < menor then
menor := vector[[i]];
end;
writeln('O maior n£mero ? ', maior, ' e o menor ? ', menor);
readln;
 
end.
dev_geral/pascal/snippet/maior-menor_numeros.txt · Última modificação em: 2018/05/14 21:37 (edição externa)