diferença entre o maior e o menor numero

Publicado por NewLinuxer 12/12/2005

[ Hits: 8.449 ]

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

Calculadora de décimo terceiro salário em Pascal

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

Calculadora usando procedures

controle de notas de uma clase com vetor e registro

Script que verifica se um número é primo ou não


  

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