Qbasic задача по матрице

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

Дана матрица Y(5, 5) (элементы задать самостоятельно). Вычислить элементы новой матрицы Z (5, 5) по правилу Z(ij)=Yij/Ki, где Кi - количество положительных элементов i-той строки. Если в i-той строке положительных элментов нет, то i-тая строка в матрице Z должна быть заполнена нулями. Отпечать для сравнения обе матрицы. Сколько бился не бился ничего не выходит. Получается сделать только первый шаг, чтобы заполнить матрицу дальше вылетает ошибка, мол индекс вне диапазона. Помогите, пожалуйста, а то скоро конец зачетной недели, а из-за этой задачи не могу сдать зачет. :'(

Добавлено через 5 часов 42 минуты 10 секунд

Все, всем спасибо. Просьба отменяется. мне помогли уже

Решение задачи: «Qbasic задача по матрице»

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

                            CLS
RANDOMIZE TIMER
n = 5
DIM Y(n, n)
DIM Z(n, n)
DIM k(n)
 
FOR i = 1 TO n
FOR j = 1 TO n
   Y(i, j) = INT(20 * RND) - 10
   PRINT USING "####"; Y(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF Y(i, j) > 0 THEN k(i) = k(i) + 1
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF k(i) THEN
      Z(i, j) = Y(i, j) / k(i)
   ELSE
      Z(i, j) = 0
   END IF
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####.###"; Z(i, j);
NEXT j: PRINT
NEXT i
END
                        