Найти максимальный элемент двухмерного массива размера n*n и сумму всех элементов строки...

Question

Найти максимальный элемент двухмерного массива размера n*n и сумму всех элементов строки и столбца, где находится этот элемент

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

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

 var m := MatrRandom(n, n); m.Println;

 var max := m.ElementsWithIndexes.MaxBy(t -> t[0]);

 Println($'Максимальный = {max[0]}');

 Println($'Сумма строки = {m.Row(max[1]).Sum}');

 Println($'Сумма столбца = {m.Col(max[2]).Sum}');

end.

---