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

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

Программа Temp; Тип time = 0..23; = 0..40 градусов; температура = массив [час] градусов; Var t: температура; я, минимум, максимум, с, Omin, Omax: целое число; мед: