Сколько элементов массива будут иметь четное значение? for n: =1 to 9 do for k: =1 to 9 do a[n,k]: =n+k что выведет данная программа? var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 7; dat[2] : = 9; dat[3] : = 10; dat[4] : = 5; dat[5] : = 6; dat[6] : = 7; dat[7] : = 9; dat[8] : = 8; dat[9] : = 6; dat[10] : = 7; m : = 0; for k : = 1 to 10 do if dat[k] < 8 then m : = m + 1; writeln(m) end.