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;