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 ( Скачать )
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 ( Скачать )