PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
№10
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(10,10,-20,20);
a.Println(4); Writeln(4*a.ColCount*'-');
var mx:=a.ElementsByRow.Max;
a.Transform(t->t=mx ? 0 : t);
Writeln('*** Полученная матрица ***'); a.Println(4)
end.