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