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

m = 4    'stolbci
n = 3    'stroki
DIM A(m, n) AS DOUBLE
  CLS
  RANDOMIZE TIMER
  ' Заполняем матрицу случ. числами.
FOR iy = 1 TO n: FOR ix = 1 TO m
 A(ix, iy) = RND * 51 - 25
 PRINT USING "+##.### "; A(ix, iy);
NEXT: PRINT : NEXT: PRINT
  ' Считаем сумму
FOR iy = 1 TO n: FOR ix = 1 TO m
 IF ABS(A(ix, iy)) > 17 THEN S = S + A(ix, iy)
NEXT ix, iy
 
PRINT "Summa :", S

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

Leave a Comment