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 then begin m: =dat[k]; num: =k end end; write (num); end. в результате выполнения программы будет напечатано 9 , не смог разобраться почему.

В программе последовательно определяются номера элементов (num), имеющих знак, противоположный знаку предыдущих (предыдущего) элемента (Dat[k]*m < 0). Переменная num в цикле последовательно будет принимать значения 2, 3, 5, 6, 8, 9. После цикла будет выведено последнее значение num. (У элемента Dat[10] знак совпадает со знаком элемента Dat[9].)