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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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