mostrar a meior e a menor temperatura do ano com vetor

Descrição

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.