// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Пример
*** Исходный массив [8,7] ***
-45 -24 26 38 -83 -97 77
15 -68 80 -47 3 -61 -52
-71 70 -52 46 70 59 -15
-66 -20 -32 82 63 1 76
93 -99 -38 22 83 -36 -42
53 17 -19 -7 47 12 -58
53 21 40 -88 -89 65 80
-73 -16 -78 -62 3 18 -79
*** Результирующий массив ***
-97 -83 -45 -24 26 38 77
-68 -61 -52 -47 3 15 80
-71 -52 -15 46 59 70 70
-66 -32 -20 1 63 76 82
-99 -42 -38 -36 22 83 93
-58 -19 -7 12 17 47 53
-89 -88 21 40 53 65 80
-79 -78 -73 -62 -16 3 18