type Ora =0..23;
Grade =-40..40;
Temperatura=array [Ora] of Grade;
var t: Temperatura;
Найти максимальное и минимальное значение температуры .
Grade =-40..40;
Temperatura=array [Ora] of Grade;
var t: Temperatura;
Найти максимальное и минимальное значение температуры .
More Questions From This User See All
Answers & Comments
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 then
min:=t[i];
end;
writeln('min=',min,' max=',max);
end.