Программа

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