Задание
begin
Dat
Dat
Dat
Dat
Dat
day:= 1; m:= Dat
for k:= 2 to 10 do begin
if Dat
m := Dat
day:= k
end
end;
write\(day\);
end.
В таблице хранятся данные о количестве проданных единиц товаров \(Dat⟨0⟩ — проданных товаров первого типа, Dat⟨1⟩ — второго и т\.д\.\). Определите, что будет напечатано в результате выполнения программ:
Program mas8;
var k, m, day: integer;
Dat: array
\[1\.\.10\]
of integer;begin
Dat
\[1\]
:= 7; Dat\[2\]
:= 1;Dat
\[3\]
:= 3; Dat\[4\]
:= 3;Dat
\[5\]
:= 2; Dat\[6\]
:= 2;Dat
\[7\]
:= 5; Dat\[8\]
:= 5;Dat
\[9\]
:= 7; Dat\[10\]
:= 1;day:= 1; m:= Dat
\[1\]
;for k:= 2 to 10 do begin
if Dat
\[k\]
< m then beginm := Dat
\[k\]
;day:= k
end
end;
write\(day\);
end.