Перестановка наибольшего элемента матрицы

' Размерность
CONST M = 5, n = 3
DIM M(M, n), MaxX, MaxY, MaxEl
   ' Заполним матрицу
  RANDOMIZE TIMER
    FOR iy = 1 TO n: FOR ix = 1 TO M
      M(ix, iy) = INT(RND * 101) - 50
    NEXT: NEXT
   ' Выявим максимальный эл-т
    MaxEl = M(1, 1)
    FOR iy = 1 TO n: FOR ix = 1 TO M
      IF M(ix, iy) > MaxEl THEN MaxEl = M(ix, iy): MaxX = ix: MaxY = iy
    NEXT: NEXT
  ' Выведем первоначальную матрицу
  CLS
  PRINT STRING$(10, CHR$(196)) + "Pervonachalnaya matrica:"
  FOR iy = 1 TO n: FOR ix = 1 TO M
     IF ix = MaxX AND iy = MaxY THEN COLOR 10 ELSE COLOR 7
     PRINT M(ix, iy);
  NEXT: PRINT : NEXT
 
' В цикле переставляем с соседними строками/столбцами
DO
  ' Переставляем столбец
  IF MaxX < M THEN
    FOR i = 1 TO n
     SWAP M(MaxX, i), M(MaxX + 1, i)
    NEXT
    MaxX = MaxX + 1
  END IF
  ' Переставляем строку
  IF MaxY > 1 THEN
    FOR i = 1 TO M
     SWAP M(i, MaxY), M(i, MaxY - 1)
    NEXT
    MaxY = MaxY - 1
  END IF
LOOP UNTIL MaxX = M AND MaxY = 1
   'Выведем результат
  PRINT STRING$(10, CHR$(196)) + "Novaya matrica:"
  FOR iy = 1 TO n: FOR ix = 1 TO M
     IF ix = MaxX AND iy = MaxY THEN COLOR 10 ELSE COLOR 7
     PRINT M(ix, iy);
  NEXT: PRINT : NEXT
END

CLS
PRINT TAB(15); “Перестановка наибольшего ”;
PRINT “элемента матрицы в правый ”;
PRINT TAB(19); “верхний угол путем ”;
PRINT “замены строк и столбцов.”
PRINT
PRINT TAB(10); “Введите кол-во строк: ”;
INPUT “ ”, m
PRINT TAB(10); “Введите кол-во столбцов: ”;
INPUT “ ”, n
PRINT
DIM m(m,n), MaxX, MaxY, MaxEL
PRINT
FOR ix=1 TO m: FOR iy=1 TO n
  PRINT TAB(10); “Введите значение(“;ix;”,”;iy;”):”;
  INPUT “ ”, m(ix,iy)
NEXT: NEXT
MaxEL=m(1,1)
FOR iy=1 TO n: FOR ix=1 TO m
   IF m(ix,iy)>MaxEL THEN MaxEL=m(ix,iy): MaxX=ix: MaxY=iy
NEXT: NEXT
PRINT STRING$(10, CHR$(196))+“Первоначальная матрица: ”
FOR ix=1 TO m: FOR iy=1 TO n
   IF ix=MaxX AND iy=MaxY THEN COLOR 10 ELSE COLOR 7
   PRINT m(ix,iy);
NEXT: PRINT: NEXT
DO
   IF MaxX<m THEN
      FOR i=1 TO n
         SWAP m(MaxX, i), m(MaxX+1, i)
      NEXT
   MaxX=MaxX+1
   END IF
   IF MaxY>1 THEN
      FOR i=1 TO m
         SWAP m(i, MaxY), m(i, MaxY-1)
      NEXT
   MaxY= MaxY-1
   END IF
LOOP UNTIL MaxX=m AND MaxY=1
  PRINT STRING$(10, CHR$(196))+“Полученная матрица: ”
  [B]FOR ix=1 TO m: FOR iy=1 TO n[/B]
     IF ix=MaxX AND iy=MaxY THEN COLOR 10 ELSE COLOR 7
     PRINT m(ix,iy);
NEXT: PRINT: NEXT
END