Var k, m :integer Dat : array 1 - 10 of : integer begin Dat 1:= 5 Dat 2:= 4 Dat 3:= -3 Dat 4:= 2 Dat 5:= 1 Dat 6:= -10 Dat 7:= 9 Dat 8:= 8 Dat 9:= -7 Dat 10:= 6 m:= 1 for k:= 1 to 10 if Dat [k] × m < 0 then m:= Dat [k] end writeln (m); End