Получить матрицу по правилу

@assm · Регистрация: 07.12.2013

PureBasic

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

неработает

@vodav · 06.02.2014, 01:24

Попробую угадать Ваши хотелки:

QBasic/QuickBASIC

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

Опции темы