1 2 3 4 5 6 7 8 9 10 11 12 13 | INPUT nFOR i = 1 TO n FOR j = 1 TO n INPUT a(i, j) NEXTNEXTFOR i = 1 TO n FOR j = 1 TO n IF a(i, j) > 0 THEN k = k + 1 NEXTNEXTPRINT k |
Тестирование выполнено в программе QB64 ( Скачать )