Дана матрица из 2 строк и 3 столбцов. Увеличить отрицательные элементы матрицы во 2 и 3 столбцах в 3 раза- QBasic(Бейсик)

DATA 2,  3, -8
DATA 6, -3, 4
DIM M(3, 2)
CLS
  '  Считаем матрицу в массив
  FOR iy = 1 TO 2: FOR ix = 1 TO 3
     READ M(ix, iy)
  NEXT: NEXT
  '  Во 2 и 3 столбце умножим на 3 отриц. элем.
  FOR iy = 1 TO 2: FOR ix = 2 TO 3
     IF M(ix, iy) < 0 THEN M(ix, iy) = M(ix, iy) * 3
  NEXT: NEXT
  '  Матрицу на экран
  FOR iy = 1 TO 2: FOR ix = 1 TO 3
     PRINT M(ix, iy);
  NEXT: PRINT : NEXT

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

Leave a Comment