Получить матрицу по правилу - QBasic (27698)

Формулировка задачи:

DIM a(i, j) AS INTEGER
PRINT "i";
INPUT i
PRINT "j";
INPUT j
FOR i = 1 TO 12
    FOR j = 1 TO 20
        a(i, j) = i + 2 * j
        k = 0
    NEXT j
NEXT i
PRINT USING "###"; a(i, j);
END

неработает

Решение задачи: «Получить матрицу по правилу»

Листинг программы

DIM a(12,20) AS INTEGER
FOR i = 0 TO 11
    FOR j = 0 TO 19
        a(i, j) = i + 2 * j
        PRINT USING "###"; a(i, j);
    NEXT j
NEXT i
END

Объяснение кода листинга программы

В этом коде:

Создается двумерный массив a размером 12x20.
Два вложенных цикла проходят по всем элементам массива a.
Каждый элемент a(i, j) инициализируется значением i + 2*j.
С помощью функции PRINT USING и строки ### элементы массива выводятся на экран.
Циклы завершаются, и программа заканчивается.