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