CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m), В(m)
PRINT "введи матрицу"
FOR j = 1 TO m
FOR i = 1 TO n
'Ввод элементов матрицы
INPUT A(i,j)
NEXT i, j
FOR j = 1 TO m
'Задание начального значения счетчика четных элементов в каждом столбце матрицы
K = 0
FOR i = 1 TO n
'Определение количества четных элементов
IF A(i, j) MOD 2 = 0 THEN K = K + 1
NEXT i
'Создание массива, состоящего из количества четных элементов
B(j) = K
NEXT j
FOR j = 1 TO m
'Определение номера столбца, где все элементы четные
IF B(j) = n THEN
PRINT "В " ; j; " столбце все элементы четные"
END IF
NEXT j
END