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