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