Задание
Begin
Dat
Dat
m := 0;
for k := 1 to 10 do
if Dat
writeln\(m\);
End.
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах \(Dat⟨0⟩ — данные за первый день, Dat⟨1⟩ — за второй и т\. д\.\). Определите, какое число будет напечатано в результате работы следующей программы.
Var k, m: integer;
Dat: array
\[1\.\.10\]
of integer;Begin
Dat
\[1\]
:= 12; Dat\[2\]
:= 15; Dat\[3\]
:= 17; Dat\[4\]
:= 15; Dat\[5\]
:= 14;Dat
\[6\]
:= 12; Dat\[7\]
:= 10; Dat\[8\]
:= 13; Dat\[9\]
:= 14; Dat\[10\]
:= 15;m := 0;
for k := 1 to 10 do
if Dat
\[k\]
>14 then m := m + Dat\[k\]
;writeln\(m\);
End.
- 62
- 137
- 90