Дан двумерный массив, состоящий из N строк и M столбцов. Найти сумму всех элементов массива — QBasic(Бейсик)

INPUT m
INPUT n
DIM a(m, n)
FOR i = 1 TO m
    FOR j = 1 TO n
        INPUT a(i, j)
    NEXT
NEXT
FOR i = 1 TO m
    FOR j = 1 TO n
        s = s + a(i, j)
    NEXT
NEXT
PRINT s

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

Leave a Comment