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

CLS
n = 3: m = 4
DIM a(n, m)
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO n: FOR j = 1 TO m
        PRINT a(i, j);
NEXT: PRINT: NEXT
FOR i = 1 TO n: FOR j = 1 TO m
        IF ABS(a(i, j)) > 17 THEN s = s + a(i, j)
NEXT: NEXT
PRINT STRING$(80, 196)
PRINT "s ="; s

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

Leave a Comment