Question

4. Написать программу для решения следующей задачи: в квадратной матрице порядка N поменять местами строку и столбец, на пересечении которых стоит максимальный элемент.
пожалуйста сделайте скриншот в паскале!​

Answer 1

begin

 var n := ReadInteger('n=');

 var a := MatrRandom(n, n, 10, 99);

 a.Println(3);

 var t := a.ElementsWithIndices.MaxBy(p -> p[0]);

 var mRow := a.Row(t[1]);

 var mCol := a.Col(t[2]);

 a.SetRow(t[1], mCol);

 a.SetCol(t[2], mRow);

 Writeln;

 a.Println(3)

end.