Массив двухмерный (4,4) заполнить двухзначными числами, вывести ввиде таблицы, поменять местами максимальный и минимальный элемент

code: #basic
CLS
RANDOMIZE TIMER
DIM a(4, 4)
mini = 2: minj = 1
maxi = 3: maxj = 1
a(1, 2) = 100
a(1, 3) = 0
 
FOR j = 1 TO 4
        FOR i = 1 TO 4
                a(j, i) = INT(RND * 89) + 10
                IF a(j, i) > a(maxj, maxi) THEN maxj = j: maxi = i
                IF a(j, i) < a(minj, mini) THEN minj = j: mini = i
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j
SWAP a(minj, mini), a(maxj, maxi): PRINT
FOR j = 1 TO 4
        FOR i = 1 TO 4
                PRINT a(j, i);
        NEXT i: PRINT
NEXT j
Поделиться:

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