Имеются две матрицы размером n на m заполненные случайными числами от 1 до 10, заполнить...

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

begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица A [',n,',',m,'] ***');
var a:=MatrRandom(n,m,1,10);
a.Println(3); Writeln(3*a.ColCount*'-');
Writeln('*** Исходная матрица B [',n,',',m,'] ***');
var b:=MatrRandom(n,m,1,10);
b.Println(3); Writeln(3*a.ColCount*'-');
Writeln('*** Матрица-результат С [',n,',',m,'] ***');
var c:=new integer[n,m];
for var i:=0 to n-1 do
for var j:=0 to m-1 do
c[i,j]:=a[i,j]+b[i,j];
c.Println(3)
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица A [4,7] ***
10 9 4 5 9 1 3
7 4 1 2 6 8 10
2 5 3 9 8 3 3
3 7 2 9 5 2 10
---------------------
*** Исходная матрица B [4,7] ***
8 1 1 4 2 5 3
8 1 8 8 3 1 10
1 5 6 2 6 5 5
8 6 5 9 4 1 7
---------------------
*** Матрица-результат С [4,7] ***
18 10 5 9 11 6 6
15 5 9 10 9 9 20
3 10 9 11 14 8 8
11 13 7 18 9 3 17

Имеются две матрицы размером n ** m заполненные случайными числами от 1 до 10, заполнить...