Mostrar maior e menor

Publicado por Kelyane (última atualização em 28/09/2009)

[ Hits: 6.280 ]

Homepage: http://blog.kelyane.com

Download maior menor.pas




Algorítimo para mostrar o maior e o menor valor de 5 números digitados, que depois você pode alterá-los para quantos quiser.

  



Esconder código-fonte

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.

Scripts recomendados

calculo da somatoria da diagonal principal

Eleições 2006

Achar o maior e o menor valor inserido pelo usuario

Extenso em dll, com parâmetros adicionais

Primo


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts