diferença entre o maior e o menor numero

Publicado por NewLinuxer 12/12/2005

[ Hits: 8.461 ]

Download exerc08.pas




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

  



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.

Scripts recomendados

Cronômetro feito no Lazarus(Delphi 7 para Linux)

Matriz simétrica

Cálculadora de décimo terceiro

vendas de uma empresa em matriz

Calculadora Empresarial 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