// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив [',8,',',7,'] ***'); var a:=MatrRandom(8,7,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); for var i:=0 to a.RowCount-1 do begin a.SetRow(i,a.Row(i).Sorted.ToArray) end; Writeln('*** Результирующий массив ***'); a.Println(4) end.