n = 5
DIM a(n, n)

' Ввод исходной матрицы
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT "Введите элемент матрицы "; a(i, j)
    NEXT j
NEXT i

' Вывод исходной матрицы
PRINT "Матрица А"
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT j
    PRINT
NEXT i

' Обработка матрицы A
min = a(1, 1): k = 1: m = 1
FOR i = 1 TO n
   FOR j = 1 TO n
        IF a(i, j) < min THEN
                           min = a(i, j)
                           k = i
                           m = j
        END IF
   NEXT j
NEXT i

' Вывод результатов    
PRINT "Минимальный элемент="; min
PRINT "Строка ="; k, "Столбец="; m
END

' Обработка матрицы A
min = 10000: k = 1: m = 1
FOR i = 1 TO n
   FOR j = 1 TO n
       IF (a(i, j) > 0) AND (a(i, j) < min) THEN
           min = a(i, j)
           k = i
           m = j
       END IF
   NEXT j
NEXT i