Type Ora =0..23; Grade =-40..40; Temperatura=array [Ora] of Grade; var t: Temperatura;...

Question

Type Ora =0..23;
Grade =-40..40;
Temperatura=array [Ora] of Grade;

var t: Temperatura;
Найти максимальное и минимальное значение температуры .

Answer 1

Var
   t: Temperatura;
  min,max:Integer;
begin
  // заполним массив температур случайными значениями
  Randomize;
  for var i:=0 to 23 do
    t[i]:=random(-40,40);
  //а теперь минимакс
  min:=41;
  max:=-41;
    for var i:=0 to 23 do
    begin
      if t[i]>max then
        max:=t[i];
      if t[i]        min:=t[i];
    end;
    writeln('min=',min,' max=',max);
  end.