Дана действительная квадратная матрица порядка n. Найти сумму элементов столбцов с отрицательными элементами на главной диагонали — QBasic(Бейсик)

FOR j = 1 TO n
    IF a(j, j) < 0 THEN FOR i = 1 TO n: s = s + a(i, j): NEXT: PRINT "stolbec "; j; "summa="; s: s = 0
NEXT

Тестирование выполнено в программе QB64 ( Скачать )