Помогите закончить на Qbasic, Помогите закончить на QBASIC Опции

[Pav]

Помогите закончить на QBASIC прогу. Задание такое .Дана действительная квадратная матрица А размера n х n. Определить наименьший элемент матрицы среди положительных и номера строки и столбца, на пересечении которых элемент находится.
Вот что у меня вышло

Код

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

Суть проблемы как видете в том, что минимальный элемент нашел, а как сделать чтобы выборка была из положительных-головы сломал...

[volvo]

Вот так измени:

Код

' Обработка матрицы 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

[Manveru]

Здравствуйте помогите закончить прогу в басике
CLS
Input "введите строку матрицы" ; n
input "Введите столбец матрицы"; m
option base1
Dim L(n,m) as integer
print "введите эл. матрицы"
for i=1 to n
for j=1 to m
input L(i,j)
next j
next i
for i=1to n
k=0
for j=1 to m
if L (i,j) mod 3 =0 then
_________?
_________?
end if
next j
___________?
next i
___________?
print "исходная матрица L"
???????????????????????????????????

А задание такое : обработать матрицу L(N,M)
найти для каждой строки элементы кратные трем подсчитать их количество