encontrar o maior e o menor valor em um vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 20.562 ]

Download exerc05.pas




este script foi desenvolvido para encontrar o maior e o menor valor em um vetor de 20 posiçoes, sendo que após localizados os valores ele retorna quem sao os valores e a posicao em que foram informados.

  



Esconder código-fonte

program exercicio05;

uses crt;

var
  posicao : array [1..20] of integer;
  maior, menor, contador: integer;

Begin
  clrscr;

  For contador := 1 To 20 do
  begin
    write('Digite o ',contador:2,'§ n£mero: ');
    readln (posicao[contador]);
  end;

  maior:= posicao[1];
  menor:= posicao[1];

  For contador := 2 to 20 do
  begin
    if maior < posicao[contador] then
      maior:= posicao[contador];
    if menor > posicao[contador] then
      menor:= posicao[contador];
  end;

  writeln;
  writeln('O maior n£mero ‚: ', maior);

  For contador := 1 to 20 do
  begin
    if maior=posicao[contador] then
      writeln('Na posi‡Æo: ',contador:2);
  end;

  writeln;
  writeln('O menor n£mero ‚: ', menor);

  For contador := 1 to 20 do
  begin
    if menor=posicao[contador] then
      writeln('Na posi‡Æo: ',contador:2);
  end;

  Readkey;

end.

Scripts recomendados

Gerador de senha Pascal/Lazarus

cadastro de um cliente com registro

palindroma

calculo da somatoria da diagonal principal

Fibonacci (Pascal)


  

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