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.

Maior numero do Vetor

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

Existência de triângulo, em Pascal

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

pares ou impares

Nenhum comentário foi encontrado.