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;