encontrar o menor valor em um vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 7.280 ]

Download exerc04.pas




script em pascal com objetivo de apenas receber os dados para preencher um vetor e após isso localizar o meno numero informado e dizer em que posição foi informado.

  



Esconder código-fonte

Program exercicio04;

uses crt;

Var
  posicao          : array[1..15] of integer;
  numero, contador : integer;

Begin
  clrscr;

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

  numero:= posicao[1];

  For contador := 2 to 15 do
  begin
    if numero > posicao[contador] then
      numero:= posicao[contador];
  end;

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

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

  Readkey;

end.

Scripts recomendados

Tocador de Vídeo (Lazarus)

vendas de uma empresa em matriz

programa pra somar e tirar média

equação de 2º grau

Conjuntos


  

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