Type Ora = 0 ... 23;

Grade = - 40 ... 40;

Temperatura=array [Ora] of Grade;

var t: Temperatura;

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

Question

Информатика

Степуха

18 января, 17:43

Type Ora = 0 ... 23;

Grade = - 40 ... 40;

Temperatura=array [Ora] of Grade;

var t: Temperatura;

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

+1

Ответы (1)

Знаете ответ на вопрос?

Петраша · 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.

Type Ora = 0 ... 23;Grade = - 40 ... 40;Temperatura=array [Ora] of Grade;var t: Temperatura;Найти максимальное и минимальное значение температуры.

Type Ora = 0 ... 23;

Grade = - 40 ... 40;

Temperatura=array [Ora] of Grade;

var t: Temperatura;

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