номер строки, для которой среднее арифметическое её элементов минимально.QBasic

[pionerka]

Здравствуйте ребята.Не могу никак вывести номер строки с минимальным средним арифметическим.
Собственно задача: В двумерном массиве вещественных чисел найти номер строки, для которой среднее арифметическое её элементов минимально.

CLS P
PRINT
PRINT "Введите размер массива*"
InputN:
INPUT "Количество строк... ", n

       
INPUT "Количество столбцов... ", m
PRINT
PRINT "Заполнение массива*:"

FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT "("; i; ","; j; ")"; " Элемент массива*... ";
                INPUT " ", a(i, j)
        NEXT j
NEXT i

PRINT "Исходный массив:"
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT a(i, j);
        NEXT j
        PRINT
NEXT i

FOR i = 1 TO n
s(i) = 0
FOR j = 1 TO m
s(i) = s(i) + a(i, j)


                NEXT j
       
NEXT i
PRINT
FOR i = 1 TO n
arf(i) = s(i) \ n
PRINT "Среднее арифметическое"; i; "строки", arf(i)
NEXT i
PRINT

FOR i = 1 TO n
IF arf(i) < min THEN min = arf(i)
PRINT "Минимальное ср. ариф"; min; "находится в строке", i
NEXT i
PRINT
вот здесь проблема.выводит почему то ср. ариф =0 и для кажд строки.

заранее спасибо.

[Z1000000]

CLS P
PRINT
PRINT "Введите размер массива*"
InputN:
INPUT "Количество строк... ", n

       
INPUT "Количество столбцов... ", m
PRINT
PRINT "Заполнение массива*:"

FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT "("; i; ","; j; ")"; " Элемент массива*... ";
                INPUT " ", a(i, j)
        NEXT j
NEXT i

PRINT "Исходный массив:"
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT a(i, j);
        NEXT j
        PRINT
NEXT i

FOR i = 1 TO n
s(i) = 0
FOR j = 1 TO m
s(i) = s(i) + a(i, j)


                NEXT j
       
NEXT i
PRINT
FOR i = 1 TO n
arf(i) = s(i) \ m
PRINT "Среднее арифметическое"; i; "строки", arf(i)
NEXT i
PRINT
min = arf(1)
indexmin = 1
FOR i = 2 TO n
IF arf(i) < min THEN 
 min = arf(i)
 Indexmin = i
END IF
NEXT i

PRINT "Минимальное ср. ариф"; min; "находится в строке", indexmin
PRINT

[pionerka]

придется опять поднять эту тему. Препод придрался. Например, если будет 2 минимальных ср. арифметических, то он должен выводить номера тогда 2-х строк. Как тогда быть?

[Z1000000]

Вместо последних двух строк

PRINT "Минимальное ср. ариф ", min, " находится в строке(ах) :"
FOR i=1 TO N
IF arf(i) = min THEN PRINT I;
NEXT I
PRINT