Информатика 11 класс ( PASCAL)

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программка не работает, обновите версию!

1.

begin
  var a:=MatrGen(4,5,(i,j)-gt;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