вывод ” T [ i ] = ”
ввод T [ i ]
PROGRAM
VAR
READLN
:
INTEGER
T
(
)
FOR
TO
Temperature
;
T [ i ]
;
END
.
:=
i
1
12
DO
BEGIN
WRITE
(
)
’ T [ ’ , i : 2, ’ ] = ’
:
ARRAY
[ 1 . . 12 ]
OF
REAL
i
;
BEGIN
END
;
;
;
:
Tsred
;
REAL
:=
0
;
Tsred
FOR
TO
:=
i
1
12
DO
:=
;
Tsred
Tsred +
T [ i ]
:=
Tsred
Tsred /12
;
WRITELN
(
)
’ Среднегодовая температура = ’ ,
Tsred : 6 : 2 ,
’ градусов ’
Tsred := 0
i := 1, 12
Tsred := Tsred + T [i]
Tsred := Tsred / 12
вывод Tsred