program apara receber dez numeros em um vetor, porcurar o maior e o menor e mostrar a diferença entre os dois.

• Download exerc08.pas
• Enviar nova versão

Esconder código-fonte

Program exercicio08;

uses crt;

Type
  Vetor = array[1..10] of integer;

Var
  vet : Vetor;
  maior, menor, contador : integer;

Begin
  clrscr;

  For contador := 1 To 10 do
  begin
    write('Informe o ',contador:2,'§ numero: ');
    readln (vet[contador]);
  end;

  maior:= vet[1];
  menor:= vet[1];

  For contador := 2 to 10 do
  begin
    if maior < vet[contador] then
      maior:= vet[contador];

    if menor > vet[contador] then
      menor:= vet[contador];
  end;

  writeln;
  writeln('A diferenca entre o maior e o menor numero e: ',maior-menor);

  Readkey;

end.

Editor de texto em Pascal/Lazarus

Eleições 2006

registro de turma com record

Gerador de Senha no Lazarus

Fator

Nenhum comentário foi encontrado.