encontrar o maior e o menor valor em um vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 20.528 ]

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

registro de turma com record

escreve os números de 1 a 9 com repeat - until

script para ler um vetor e mostrar o conteúdo

soma da diagonal principal de uma matriz

Matriz simétrica


  

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