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;