Составьте программу для вычисления сумм отрицательных элементов каждого столбца матрицы - QBasic

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

не хватает несколько операторов, разобраться сама не могу, а сдавать надо срочно Задание: Составьте программу для вычисления сумм отрицательных элементов каждого столбца матрицы

                    Листинг программы
                
 
                        
                          
                    
CLS
DIM i, j, sum AS INTEG
DIM nRow, nCol AS INTE
nRow = 3
nCol = 3
 
DIM b(nRow, nCol) AS I
b(0, 0) = 1
b(0, 1) = 1
b(0, 2) = 2
b(1, 0) = -1
b(1, 1) = -4
b(1, 2) = 2
b(2, 0) = 2
b(2, 1) = -8
b(2, 2) = -100
 
FOR i = 0 TO
 sum = 0
 FOR j = 0
   IF b(i,
 NEXT j
  IF sum = 0 THEN PRINT "Нет отрицательных чисел"
  IF sum <> 0 THEN PRINT sum
NEXT i

Вывод: Нет отрицательных чисел -5 -108

Решение задачи: «Составьте программу для вычисления сумм отрицательных элементов каждого столбца матрицы»

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

CLS
DIM i, j AS INTEGER
DIM nRow, nCol AS INTEGER
nRow = 3
nCol = 3
 
DIM b(nRow, nCol) AS INTEGER
b(0, 0) = 1
b(0, 1) = 1
b(0, 2) = 2
b(1, 0) = -1
b(1, 1) = -4
b(1, 2) = 2
b(2, 0) = 2
b(2, 1) = -8
b(2, 2) = -100
 
DIM Summ(nCol)
For i=0 to nCol-1
  Summ(i)=0
  For j=0 to nRow-1
    If b(j,i) < 0 Then
      Summ(i) = Summ(i) + b(j,i)
    End if
  Next j
  Print Summ(i)
Next i

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

Вот что делает этот код:

Объявляет переменные i, j, nRow, nCol, b(nRow, nCol), Summ(nCol).
Задает значения переменным nRow и nCol (в данном случае 3).
Задает значения элементов матрицы b(i, j).
Создает цикл for для прохода по каждому столбцу матрицы (от 0 до nCol-1).
Внутри цикла создает переменную Summ(i), которая будет хранить сумму отрицательных элементов текущего столбца.
Создает вложенный цикл for для прохода по каждой строке текущего столбца (от 0 до nRow-1).
Внутри вложенного цикла проверяет, является ли элемент b(j,i) отрицательным, и если да, то добавляет его к Summ(i).
После завершения вложенного цикла выводит значение Summ(i).
После завершения внешнего цикла выводит значение i, переходя к следующей итерации.