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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DIM a(1 TO 3, 1 TO 3)
RANDOMIZE TIMER
CLS
  
FOR i = 1 TO 3
FOR j = 1 TO 3
a(i, j) = INT(RND * 21 - 10)
PRINT a(i, j),
NEXT j
PRINT
NEXT i
  
PRINT
  
FOR i = 1 TO 3
FOR j = 1 TO 3
IF i > 1 AND a(i, j) > 0 THEN a(i, j) = a(i, j) * 2
PRINT a(i, j),
NEXT j
PRINT
NEXT i

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

Похожие записи/страницы:

Leave a Comment