Задание
begin
Dat
Dat
Dat
Dat
Dat
m:= Dat
for k:= 4 to 10 do begin
if Dat
begin
m:= m + Dat
end
end;
write\(m\);
end.
В таблице хранятся данные о количестве проданных единиц товаров \(Dat⟨0⟩ — проданных товаров первого типа, Dat⟨1⟩ — второго и т\.д\.\). Определите, что будет напечатано в результате выполнения программ:
Program mas10;
var k, m: integer;
Dat: array
\[1\.\.10\]
of integer;begin
Dat
\[1\]
:=45; Dat\[2\]
:=55;Dat
\[3\]
:=40; Dat\[4\]
:=15;Dat
\[5\]
:=20; Dat\[6\]
:=80;Dat
\[7\]
:=35; Dat\[8\]
:=70;Dat
\[9\]
:=10; Dat\[10\]
:=45;m:= Dat
\[1\]
;for k:= 4 to 10 do begin
if Dat
\[k\]
> Dat\[1\]
thenbegin
m:= m + Dat
\[k\]
end
end;
write\(m\);
end.