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

DEFINT A-Z
DIM A(4, 3), S
  CLS
  '  Заполняем матрицу
  RANDOMIZE TIMER
  FOR iy = 1 TO 3
    FOR ix = 1 TO 4
    A(ix, iy) = RND * 71 - 35
    PRINT A(ix, iy);
    NEXT: PRINT
  NEXT
  '  Ищем сумму
  FOR iy = 1 TO 3
    FOR ix = 1 TO 4
     IF ABS(A(ix, iy)) > 17 THEN S = S + A(ix, iy)
    NEXT
  NEXT
  '  Выводим результат
  PRINT "Summa : "; S

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

Leave a Comment