// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
1.
begin
var a:=MatrGen(4,5,(i,j)->i+1);
a.Println(2)
end.
Результат
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
2.
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SwapRows(0,a.RowCount-1);
Writeln('*** Результирующий массив ***'); a.Println(4)
end.
Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 5
*** Исходный массив ***
-68 64 -31 2 -73
-24 -17 17 97 57
-71 45 19 70 -78
-5 -81 -49 -94 -5
78 64 -8 -84 33
-30 2 26 -50 -47
--------------------
*** Результирующий массив ***
-30 2 26 -50 -47
-24 -17 17 97 57
-71 45 19 70 -78
-5 -81 -49 -94 -5
78 64 -8 -84 33
-68 64 -31 2 -73