Дана матрица 5х5. Найти сумму элементов,лежащих под главной диагональю квадратной...

Question

Дана матрица 5х5. Найти сумму элементов,лежащих под главной диагональю квадратной матрицей С. Найти вектор, составленный из сумм по столбцам матрицы. Нужно составить программу в QBasic

Answer 1

DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
    FOR J = 1 TO 5
        A(I, J) = INT(RND * 10)
        IF J < I THEN S = S + A(I, J)
        A(0, J) = A(0, J) + A(I, J)
        PRINT A(I, J); " ";
    NEXT J
    PRINT
NEXT I
PRINT "SUM="; S
PRINT "VECTOR: ";
FOR I = 1 TO 5
    PRINT A(0, I); "; ";
NEXT I