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