Значение элементов матрицы W (3,4) увеличить на величину индекса строки с минимальным элементом
Категория: Basic
2012-02-06 16:56:53
Сам минимальный элемент оставить без изменений. Принять, что минимальный елемент в матрице один
code: #basic
DIM w(3, 4) FOR i = 1 TO 3 FOR j = 1 TO 4 INPUT "vvedite element ", w(i, j) NEXT NEXT PRINT "ishodnyj massiv" FOR i = 1 TO 3 FOR j = 1 TO 4 PRINT w(i, j); NEXT PRINT NEXT xmin = 1 ymin = 1 FOR i = 1 TO 3 FOR j = 1 TO 4 IF w(i, j) < w(xmin, ymin) THEN xmin = i: ymin = j NEXT NEXT PRINT "nomer stroki="; xmin FOR i = 1 TO 3 FOR j = 1 TO 4 IF (i <> xmin) OR (j <> ymin) THEN w(i, j) = w(i, j) + xmin NEXT NEXT PRINT "novyj massiv" FOR i = 1 TO 3 FOR j = 1 TO 4 PRINT w(i, j); NEXT PRINT NEXT
автор: кот Бегемот
Поделиться: