В квадратной матрице А(7,7) поменять местами минимальные элементы первой и третьей строк,...

Question

В квадратной матрице А(7,7) поменять местами минимальные элементы первой и третьей строк, максимальные элементы главной и побочной диагоналей

Answer 1

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) > A(1, i) THEN    minj = i  END IF  IF A(3, minj2) > 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) > A(i, j) THEN    maxi1 = i: maxj1 = j  END IF  IF A(maxi2, maxj2) > 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);