1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT "vvedite razmer matricy N ", n DIM d(n, n) RANDOMIZE TIMER PRINT "massiv" FOR i = 1 TO n FOR j = 1 TO n d(i, j) = INT(RND * 50 ) / 2 - 10 PRINT d(i, j); NEXT PRINT NEXT FOR i = 1 TO n IF d(i, n - i + 1 ) > 0 AND d(i, n - i + 1 ) <> INT(d(i, n - i + 1 )) THEN sum = sum + d(i, n - i + 1 ) NEXT PRINT "summa drobnyh polojitelnyh="; sum |
Тестирование выполнено в программе QB64 ( Скачать )