mostrar a meior e a menor temperatura do ano com vetor

Publicado por NewLinuxer 13/12/2005

[ Hits: 8.546 ]

Download exerc12.pas




programa feito para receber as temperaturas medias durante o ano, calcular e mostrar qual foi a maior e a menor temperatura e em que mes isso ocorreu.

  



Esconder código-fonte

Program exercicio12;

uses crt;

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

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

Begin
  clrscr;

  For contador := 1 To 12 do
  begin
    write('Informe a ',contador:2,'¦ temperatura: ');
    readln (temp[contador]);
  end;

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

  For contador := 2 to 12 do
  begin
    if maior < temp[contador] then
      maior:= temp[contador];

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

  writeln;
  write('A menor temperatura foi de: ', menor,'§C');

  For contador := 1 to 12 do begin
    if menor=temp[contador] then
      write(', no ',contador,'§ mes');
  end;

  writeln;
  write('A maior temperatura foi de: ', maior,'§C');

  For contador := 1 to 12 do begin
    if maior=temp[contador] then
      write(', no ',contador,'§ mes');
  end;


  Readkey;

end.

Scripts recomendados

Mostrar maior e menor

calculo de vendas

Calculadora completa com porcentagem(Lazarus)

Gerador de senha Pascal/Lazarus

somatório de uma matriz 7x5


  

Comentários
[1] Comentário enviado por removido em 15/06/2006 - 19:17h

Show kra, tanbém adoro brincar com pascal e o Kylix


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts