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.

• Download exerc04.pas
• Enviar nova versão

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.

Coleta de dados de alunos em Pascal

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

Sequência de Fibonacci

soma de matrizes

Calculadora de décimo terceiro salário em Pascal

Nenhum comentário foi encontrado.