Задание
Begin
Dat
Dat
Dat
Dat
Dat
Dat
m := Dat
d := 1;
for k := 8 to 12 do
if Dat
begin
m := Dat
d := k;
end;
writeln\(d\);
End.
В таблице Dat хранятся данные о количестве детских праздников, которые проводило кафе за последний год \(Dat⟨0⟩ — количество детских праздников в январе, Dat⟨1⟩ — количество праздников в феврале и т\. д\.\). Что будет напечатано в результате выполнения следующего алгоритма
Var k, m, d: integer;
Dat: array
\[1\.\.12\]
of integer;Begin
Dat
\[1\]
:= 2; Dat\[2\]
:= 8;Dat
\[3\]
:= 6; Dat\[4\]
:= 3;Dat
\[5\]
:= 8; Dat\[6\]
:= 2;Dat
\[7\]
:= 3; Dat\[8\]
:= 7;Dat
\[9\]
:= 8; Dat\[10\]
:= 3;Dat
\[11\]
:= 8; Dat\[12\]
:= 7;m := Dat
\[1\]
;d := 1;
for k := 8 to 12 do
if Dat
\[k\]
> m thenbegin
m := Dat
\[k\]
;d := k;
end;
writeln\(d\);
End.