Дана квадратная матрица третьего порядка.увеличить положительные элементы матрицы в 2ой и 3ей строках в 2 раза- QBasic(Бейсик)

DATA -1,2,3
DATA 4,-5,6
DATA 7,8,-9
 CLS
   RESTORE
 FOR iy = 1 TO 3: FOR ix = 1 TO 3
  READ a: PRINT a;
 NEXT: PRINT : NEXT: PRINT
   RESTORE
 FOR iy = 1 TO 3: FOR ix = 1 TO 3
  READ a
  IF iy > 1 AND a > 0 THEN a = a + a
  PRINT a;
 NEXT: PRINT : NEXT

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

Leave a Comment