Задание
k, day: integer;
begin
Dat
Dat
Dat
Dat
day := 0;
for k := 1 to 7 do begin
if Dat
day := day+1;
end;
writeln\(day\);
end.
Определите, какое число будет напечатано в результате работы следующей программы.
var Dat: array
\[1\.\.7\]
of integer;k, day: integer;
begin
Dat
\[1\]
:= 9; Dat\[2\]
:= 11;Dat
\[3\]
:= 10; Dat\[4\]
:= 13;Dat
\[5\]
:= 8; Dat\[6\]
:= 5;Dat
\[7\]
:= 11;day := 0;
for k := 1 to 7 do begin
if Dat
\[k\]
<= 10 thenday := day+1;
end;
writeln\(day\);
end.