Дана матрица 5-го порядка, если максимальный элемент 3-го столбца >11, то все элементы 4-го столбца сделать равными этому значению в противном случае все элементы 5-ой строки обнулить

code: #basic
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

автор: кот Бегемот

Поделиться:

Похожие статьи: