Программа

DECLARE SUB GetMinElementMatrix (A!(), Min!)
DECLARE SUB InputMatrix (A!())
DECLARE SUB OutputMatrix (A!())

N% = 4   ' Размерность  матрицы
DIM A(N%, N%) ' Матрица

CLS ' Очистка экрана
CALL InputMatrix(A()) ' Ввод матрицы
CLS ' Очистка экрана
PRINT " Матрица: "  ' Вывод заголовка
CALL OutputMatrix(A()) ' Вывод матрицы
PRINT ' Пропуск строки
CALL GetMinElementMatrix(A(), Min) ' Получение минимального элементов матрицы
PRINT "Min="; Min  ' Вывод минимального элемента матрицы
END

SUB GetMinElementMatrix (A(), Min)
                              ' Процедура поиска минимального элемента матрицы
  Min = A(1, 1)                 ' Начальное определение минимального элемента
  FOR i% = 1 TO UBOUND(A, 1)       ' Цикл просмотра диагонали матрицы
      IF A(i%, i%) < Min THEN Min = A(i%, i%)' Если текущий элемент меньше
                          ' минимального, то - переопределение минимального
  NEXT i%
END SUB

SUB InputMatrix (A())               ' Процедура ввода матрицы
  FOR i% = 1 TO UBOUND(A, 1)           ' Цикл ввода строк матрицы
    FOR j% = 1 TO UBOUND(A, 2)           ' Цикл ввода элементов матрицы
      PRINT "Введите элемент ["; i%; ","; j%; "]";
                                   ' Вывод приглашения ввести элемент матрицы
      INPUT " ", A(i%, j%)         ' Ввод элемента матрицы
    NEXT j%
  NEXT i%
END SUB

SUB OutputMatrix (A())              ' Процедура вывода матрицы
  FOR i% = 1 TO UBOUND(A, 1)           ' Цикл вывода строк матрицы
    FOR j% = 1 TO UBOUND(A, 2)           ' Цикл вывода элементов матрицы
      PRINT USING " ####.### "; A(i%, j%);  ' Вывод элемента матрицы
    NEXT j%
    PRINT                              ' Вывод конца строки
  NEXT i%
END SUB