Program Temperature; {Ввод массива среднемесячных температур. Вычисление среднегодовой температуры и ежемесячных отклонений от средней температуры} Var T: array[1..12] of real; {Описание массива температур} Var Dt: array[1..12] of real; {Описание массива отклонений от среднего значения} I: integer; Tsred: real; Begin {Цикл ввода} for I:=1 to 12 step 1 do begin Write('T[',I:2,']='); Readln(T[I]) End; {Цикл суммирования} Tsred:=0; for I:=1 to 12 do Tsred:=Tsred+T[I]; {Вычисление средней температуры} Tsred:=Tsred/12; {Вывод результата} Writeln('Среднегодовая температура=', Tsred:6:2, ' градусов') {Вычисление и вывод ежемесячных отклонений от средней температуры} for I:=1 to 12 step 1 do begin Dt[I]:=T[I] - Tsred; Writeln('Dt[',I:2,']=', Dt[I]:6:2) End End.