CLSDIM A(7, 7)FOR i = 1 TO 7  FOR j = 1 TO 7    A(i, j) = INT(RND * 100)  NEXT jNEXT iminj = 1: minj2 = 1FOR i = 1 TO 7  IF A(1, minj) gt; A(1, i) THEN    minj = i  END IF  IF A(3, minj2) gt; A(3, i) THEN    minj2 = i  END IFNEXT iSWAP A(1, minj), A(3, minj2)maxi1 = 1: maxj1 = 1: maxi2 = 1: maxj2 = 7j = 1: k = 7FOR i = 1 TO 7  IF A(maxi1, maxj1) gt; A(i, j) THEN    maxi1 = i: maxj1 = j  END IF  IF A(maxi2, maxj2) gt; A(i, k) THEN    maxi2 = i: maxj2 = k  END IF  k = k - 1  j = j + 1NEXT iFOR i = 1 TO 7  FOR j = 1 TO 7    PRINT A(i, j);