ArtemRussia

02.07.2021 16:25 •  Информатика

Втаблице dat хранятся положительные и отрицательные целые числа. определите, что будет напечатано в результате выполнения следующего алгоритма. c объяснением, 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.