Программа

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

PRINT

ELSE

'Если столбец нечетный, то вывод производится сверху вниз

FOR i = 1 TO n

PRINT A(i,j);

NEXT i

PRINT

END IF

NEXT j

END