Найти номер строки матрицы, для которой среднее арифметическое значение его элементов минимально - QBasic

Формулировка задачи:

Помогите! В двухмерном массиве вещественных чисел найти номер строки для которой среднее арифметическое значение его элементов минимально.

Решение задачи: «Найти номер строки матрицы, для которой среднее арифметическое значение его элементов минимально»

Листинг программы

CLS
RANDOMIZE TIMER
INPUT K, N
DIM C(K, N)
 
FOR J = 1 TO K
FOR I = 1 TO N
        C(J, I) = INT(RND * 100)
        PRINT C(J, I);
   NEXT I
PRINT ""
NEXT J
 
 MINSZ = 100
FOR J = 1 TO K
        FOR I = 1 TO N
                S = S + C(J, I)
         NEXT I
         IF S / N < MINSZ THEN MINSZ = S / N: S = 0: MINSTR = J
NEXT J
 
PRINT "SREDNEE ARIFMETICHESKOE"; MINSTR; "STROKI MINIMALNO"; MINSZ

Объяснение кода листинга программы

В первой части кода создается матрица случайных чисел размером K на N.
Во второй части кода находится номер строки матрицы, для которой среднее арифметическое значение его элементов минимально. Для этого используется переменная MINSZ, которая инициализируется значением 100. Переменная S используется для суммирования элементов каждой строки матрицы. Если сумма элементов строки, деленная на количество элементов, меньше значения MINSZ, то значение MINSZ присваивается новое значение, а переменная S обнуляется. Переменная MINSTR содержит номер такой строки.
В конце кода выводится сообщение с найденным значением MINSZ и номером строки MINSTR.