CLS OPTION BASE 1 DIM a(2, 3), b(3, 4), c(2, 4) 'AS SINGLE FOR i = 1 TO 2 FOR j = 1 TO 3 PRINT "a "; i; j; INPUT a(i, j) NEXT: NEXT FOR i = 1 TO 3 FOR j = 1 TO 4 PRINT "b "; i; j; INPUT b(i, j) NEXT: NEXT FOR i = 1 TO 2 FOR j = 1 TO 4 c(i, j) = 0 FOR k = 1 TO 3 c(i, j) = c(i, j) + a(i, k) * b(k, j) NEXT: NEXT: NEXT PRINT "a" FOR i = 1 TO 2 FOR j = 1 TO 3 PRINT a(i, j); NEXT: PRINT : NEXT PRINT "b" FOR i = 1 TO 3 FOR j = 1 TO 4 PRINT b(i, j); NEXT: PRINT : NEXT PRINT "c" FOR i = 1 TO 2 FOR j = 1 TO 4 PRINT USING "#####.#"; c(i, j); NEXT: PRINT : NEXT