Mostrar maior e menor

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

[ Hits: 5.764 ]

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

Extenso em dll, com parâmetros adicionais

Maior numero do Vetor

Matrizes

calculo de vendas

registro de turma com record


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts