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
'Определение начального значения минимума в каждом столбце матрицы
MIN = A(1,j)
L = 1
FOR i = 2 TO n
IF A(i,j) < MIN THEN MIN = A(i,j): L = i
NEXT i
'Создание массива, состоящего из минимальных значений каждого столбца матрицы
B(j) = MIN
NEXT j
'Задание начального значения наименьшего значения среди минимумов каждого столбца матрицы
MIN1 = B(1)
L1 = 1
FOR J = 2 TO m
IF B(j) < MIN1 THEN MIN1 = B(j): L1 = J
NEXT i
PRINT "номер столбца, где самое наименьшее значение MIN =" ; L1
PRINT "его значение равно =" ; MIN1
END