Question

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

Answer 1

begin

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

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

 a.Println(4);

 Writeln;

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

 var (r, c) := (t[1], t[2]);

 a.SetRow(r, ArrFill(n, 1));

 a.SetCol(c, ArrFill(n, 1));

 a.Println(4)

end.