// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(4,4,-99,99); a.Println(4); for var r:=0 to 3 do a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray); Writeln('*** Отсортированный массив ***'); a.Println(4) end.