Question

type Ora =0..23;
Grade =-40..40;
Temperatura=array [Ora] of Grade;
var t: Temperatura;
Нартикул максимальную и минимальную температуру .

Answer 1

Вычислить среднюю температуру, даны описания 
type Ora = 0...23; 
Grade= -40...40 
Temperatura = array [Ora] of Grade; 
var t: Temperatura;