Сформировать двумерный массив, у которого значения элементов равны 1, если сумма индексов этого элемента четная, и равны 0, если сумма индексов нечётная — QBasic(Бейсик)

INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
DIM a(m, n)
FOR i = 1 TO m
    FOR j = 1 TO n
        a(i, j) = 1 - (i + j) MOD 2
    NEXT
NEXT
FOR i = 1 TO m
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment