Дана матрица R, 3 строки 2 столбца. Если 2 элемента 3 строки больше 0, то все элементы 2 столбца сделать равными 20, а все элементы 2 строки записать максимальным элементом 1 столбца — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
DIM r(3, 2)
FOR i = 1 TO 3
FOR j = 1 TO 2
INPUT "vvedite element ", r(i, j)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO 3
FOR j = 1 TO 2
PRINT r(i, j); " ";
NEXT
PRINT
NEXT
max = r(1, 1)
FOR i = 1 TO 3
IF r(i, 1) > max THEN max = r(i, 1)
NEXT
IF (r(3, 1) > 0) AND (r(3, 2) > 0) THEN FOR k = 1 TO 3: r(k, 2) = 20: NEXT: FOR j = 1 TO 2: r(2, j) = max: NEXT
PRINT "novaya matrica"
FOR i = 1 TO 3
FOR j = 1 TO 2
PRINT r(i, j); " ";
NEXT
PRINT
NEXT

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

Leave a Comment