encontrar o menor valor em um vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 7.299 ]

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

Calculadora completa com porcentagem(Lazarus)

Tratamentos de Erros

média de uma turma

Calculadora básica em Pascal

Achar o maior e o menor valor inserido pelo usuario


  

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