CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m)
PRINT "введи матрицу"
'Цикл по строкам матрицы
FOR i = 1 TO n
'Цикл по столбцам матрицы
FOR j = 1 TO m
'Ввод элементов массива
INPUT A(i,j)
NEXT j, i
FOR j = 1 TO m
'Определение четности номера столбца
IF j MOD 2 = 0 then
'Если столбец четный, то вывод производится снизу вверх
FOR i = n TO 1 STEP –1
PRINT A(i,j);
NEXT i
ELSE
'Если столбец нечетный, то вывод производится сверху вниз
FOR i = 1 TO n
PRINT A(i,j);
NEXT i
END IF
NEXT j
END