Вычислить элементы матрицы C с являющейся суммой матриц A u B.размер матрицы 3*7- QBasic(Бейсик)

DIM a(3, 7), b(3, 7), c(3, 7)
RANDOMIZE TIMER
FOR i = 1 TO 3
    FOR j = 1 TO 7
        a(i, j) = INT(RND * 20)
        b(i, j) = INT(RND * 20)
    NEXT
NEXT
PRINT "massiv a"
FOR i = 1 TO 3
    FOR j = 1 TO 7
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT
PRINT "massiv b"
FOR i = 1 TO 3
    FOR j = 1 TO 7
        PRINT b(i, j);
    NEXT
    PRINT
NEXT
PRINT
PRINT "massiv c"
FOR i = 1 TO 3
    FOR j = 1 TO 7
        c(i, j) = a(i, j) + b(i, j)
        PRINT c(i, j);
    NEXT
    PRINT
NEXT

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

Leave a Comment