1.Cоставить программу,которая заполняет квадратную матрицу 9 х 9.

1 1 1 1 ...1
2 2 2 2...2
3 3 3 3...3
...
9 9 9 9...9

2.Составить программу решения поставленной задачи.
В прямоугольной матрице отрицательные числа заменить им противоположными.

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=MatrGen(9,9,(i,j)->i+1); a.Println(2);end.Результат 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 6 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8 8 9 9 9 9 9 9 9 9 9begin  var n:=ReadInteger('Количество строк в матрице:');  var m:=ReadInteger('Количество столбцов в матрице:');  Writeln('*** Исходная матрица [',n,',',m,'] ***');  var a:=MatrRandom(n,m,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  Writeln('*** Результат [',n,',',m,'] ***');  a.Fill((i,j)->Abs(a[i,j])); a.Println(4)end.ПримерКоличество строк в матрице: 4Количество столбцов в матрице: 7*** Исходная матрица [4,7] ***  10  42   3  83 -65  43  65 -52 -40  55  75 -27  53 -47  17  88  93  32  35  41 -76  70  13   6   2   9 -22 -55----------------------------*** Результат [4,7] ***  10  42   3  83  65  43  65  52  40  55  75  27  53  47  17  88  93  32  35  41  76  70  13   6   2   9  22  55