Дана матрица 5-го порядка, если максимальный элемент 3-го столбца >11, то все элементы 4-го столбца сделать равными этому значению в противном случае все элементы 5-ой строки обнулить- 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
CLS
DIM a(5, 5)
RANDOMIZE TIMER
FOR i = 1 TO 5
FOR j = 1 TO 5
a(i, j) = INT(RND * 16)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO 5
FOR j = 1 TO 5
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
max = a(1, 3)
FOR i = 2 TO 5
IF a(i, 3) > max THEN max = a(i, 3)
NEXT
IF max > 11 THEN FOR i = 1 TO 5: a(i, 4) = max: NEXT:  ELSE FOR i = 1 TO 5: a(5, i) = 0: NEXT
PRINT "novaya matrica"
FOR i = 1 TO 5
FOR j = 1 TO 5
PRINT a(i, j); " ";
NEXT

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

Leave a Comment