дана матрица A(M,N)

[Esmadjin]

Составить вектор из номеров столбцов, которые упорядочены по неубыванию или невозрастанию элементов

[macomics]

переменная k = 0
в цикле по j перебор номеров столбцов матрицы
бегин
   флаг упорядочения по не убыванию = тру
   флаг упорядочения по не возрастанию = тру
   в цикле по i перебор номеров строк матрицы до предпоследней
   бегин
      если элемент i, j меньше элемента i + 1, j тогда флаг упорядочения по не убыванию = фолс
      если элемент i, j больше элемента i + 1, j тогда флаг упорядочения по не возрастанию = фолс
   энд
   если флаг упорядочения по не убыванию или флаг упорядочения по не возрастанию тогда
   бегин
      элемент вектора k = j
      увеличить k
   энд
энд