Значение элементов матрицы W (3,4) увеличить на величину индекса строки с минимальным элементом — 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

Leave a Comment