Question

В таблице 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 then begin m := Dat [k]; num := k end end; write (num); end. Помогите решить и объяснить.

Answer 1

Программа выводит номер элемента массива, следующего за последней переменой знака (см. вложение). Перемена знака проверяется условием
Dat [k] * m < 0 - два соседних элемента имеют разные знаки.
Будет выведено значение 9.