// 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