Question

Написать и отладить программу по следующему условию:
Найти наибольший и наименьший элементы квадратной матрицы 5х5 и поменять их местами.

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(5, 5, -99, 99);

 a.Println;

 Writeln;

 var tMin := a.ElementsWithIndices.MinBy(p -> p[0]);

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

 Swap(a[tMin[1], tMin[2]], a[tMax[1], tMax[2]]);

 a.Println

end.