1 2 3 4 5 6 7 8 9 10 | DIM k( 3 , 3 ) FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT k(i, j) NEXT j NEXT i FOR i = 1 TO 3 PRINT k(i, i) NEXT i END |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 9 10 | DIM k( 3 , 3 ) FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT k(i, j) NEXT j NEXT i FOR i = 1 TO 3 PRINT k(i, i) NEXT i END |
Тестирование выполнено в программе QB64 ( Скачать )