Программа

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