encontrar o menor valor em um vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 7.277 ]

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

Script que verifica se um número é primo ou não

Calculadora de décimo terceiro salário(Lazarus)

Primo_for

média dos numeros informados em posiçoes pares em um vetor

Gerador de Senha no Lazarus


  

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