Дана матрица из 3 строк и 4 столбцов найти сумму элементов этой матрицы по абсолютной величине больших 17 — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DIM matr(1 TO 3, 1 TO 4) AS INTEGER
DIM sum AS INTEGER, summod AS INTEGER
CLS
RANDOMIZE TIMER
sum = 0
summod = 0
FOR i = 1 TO 3
    FOR j = 1 TO 4
        matr(i, j) = INT(RND * 100 - 50)
        PRINT matr(i, j)
        IF ABS(matr(i, j)) > 17 THEN
            sum = matr(i, j) + sum
            summod = ABS(matr(i, j)) + summod
        END IF
    NEXT j
NEXT i
PRINT
PRINT "Prosto summa: "; sum
PRINT "Summa po moduliu: "; summod
END

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

Похожие записи/страницы:

Leave a Comment