Program Temperature; {Ввод массива среднемесячных температур. Вычисление среднегодовой температуры} Var T: 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, ' градусов') End.