Задание
begin
Dat
Dat
Dat
Dat
Dat
num:=1; m:=Dat
for k:=2 to 10 do begin
if Dat
begin
m:=Dat
end;
end;
write\(num\);
end.
В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма.
var k, m, num: integer;
Dat: array
\[1\.\.10\]
of integer;begin
Dat
\[1\]
:=7; Dat\[2\]
:=-8;Dat
\[3\]
:=3; Dat\[4\]
:=6;Dat
\[5\]
:=-4; Dat\[6\]
:=3;Dat
\[7\]
:=5; Dat\[8\]
:=-5;Dat
\[9\]
:=7; Dat\[10\]
:=1;num:=1; m:=Dat
\[1\]
;for k:=2 to 10 do begin
if Dat
\[k\]
*m < 0 thenbegin
m:=Dat
\[k\]
; num:=k;end;
end;
write\(num\);
end.