Дана матрица 5-го порядка, если максимальный элемент 3-го столбца >11, то все элементы 4-го столбца сделать равными этому значению в противном случае все элементы 5-ой строки обнулить
Категория: Basic
2011-11-01 14:23:46
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
автор: кот Бегемот
Поделиться: