Задание
m, k: Integer;
begin
Dat
Dat
Dat
Dat
Dat
Dat
Dat
m := 0;
for k := 0 to 6 do
begin
if Dat
m := m + 1;
end;
writeln\(m\);
end.
Определите, что будет выведено на экран в результате выполнения программы:
program CountNumbers;
var Dat: array
\[0\.\.6\]
of Integer;m, k: Integer;
begin
Dat
\[0\]
:= 12;Dat
\[1\]
:= 15;Dat
\[2\]
:= 17;Dat
\[3\]
:= 15;Dat
\[4\]
:= 14;Dat
\[5\]
:= 13;Dat
\[6\]
:= 10;m := 0;
for k := 0 to 6 do
begin
if Dat
\[k\]
>= 14 thenm := m + 1;
end;
writeln\(m\);
end.