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

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

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

Код к задаче: «Qbasic задача по матрице - 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

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ