diferença entre o maior e o menor numero

Publicado por NewLinuxer 12/12/2005

[ Hits: 8.456 ]

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

Eleições 2006

Visualizador de imagem Pascal/Lazarus

Mostrar maior e menor

script para ler um vetor e mostrar o conteúdo

Primo


  

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