Задание
Begin
Dat
Dat
Dat
Dat
Dat
Dat
m := 0;
for k := 3 to 11 do
if Dat
begin
m := m+1;
end;
writeln\(m\);
End.
В таблице хранятся данные о количестве проданных единиц товаров \(Dat⟨0⟩ — проданных товаров первого типа, Dat⟨1⟩ — второго и т\.д\.\). Определите, что будет напечатано в результате выполнения программ:
Program mas5;
Var k, m: integer;
Dat: array
\[1\.\.11\]
of integer;Begin
Dat
\[1\]
:= 20; Dat\[2\]
:= 25;Dat
\[3\]
:= 19; Dat\[4\]
:= 25;Dat
\[5\]
:= 26; Dat\[6\]
:= 22;Dat
\[7\]
:= 24; Dat\[8\]
:= 28;Dat
\[9\]
:= 26; Dat\[10\]
:= 21;Dat
\[11\]
:= 27;m := 0;
for k := 3 to 11 do
if Dat
\[k\]
>= 22 thenbegin
m := m+1;
end;
writeln\(m\);
End.