INPUT n
FOR i = 1 TO n
FOR j = 1 TO n
INPUT a(i, j)
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i, j) > 0 THEN k = k + 1
NEXT
NEXT
PRINT k
Тестирование выполнено в программе QB64 ( Скачать )
INPUT n
FOR i = 1 TO n
FOR j = 1 TO n
INPUT a(i, j)
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i, j) > 0 THEN k = k + 1
NEXT
NEXT
PRINT k
Тестирование выполнено в программе QB64 ( Скачать )