====== Определение сложения ======

Операция сложения двух матриц есть поэлементное сложение этих матрицы.


<math>C=A+B </math>

<math>c_{i,j}=a_{i,j}+b_{i,j}</math>\\

Здесь матрицы A и B должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.

====== Алгоритм сложения матриц ======

<code pascal>
procedure Add(Var R:TMatrixNM; A:TMatrixNM; B:TMatrixNM); 
var i,j:Integer;
begin
for i:=0 to RowsCount(A)-1 do
  for j:=0 to ColumnsCount(A)-1 do
    begin
    R[i,j]:=A[i,j]+B[i,j];
    end;
end;
</code>

**Входные параметры:**
  * Прямоугольная матрица A;
  * Прямоугольная матрица B. 
**Выходные параметры:**
  * Прямоугольная матрица R.
**Примечание:**\\
  * Память под матрицы A, B и R должна быть выделена.  Матрицы A,B и R должны иметь одинаковое число столбцов и строк.

====== Операция вычитания ======

Определена вычитание определяется, как обратная операция к сложения.

<math>B=C-A </math>

<math>b_{i,j}=c_{i,j}-a_{i,j}</math>\\


Здесь матрицы A и B должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.

====== Алгоритм Вычитания матриц ======

<code pascal>
procedure Sub(Var R:TMatrixNM; A:TMatrixNM; B:TMatrixNM); 
var i,j:Integer;
begin
for i:=0 to RowsCount(A)-1 do
  for j:=0 to ColumnsCount(A)-1 do
    begin
    R[i,j]:=A[i,j]-B[i,j];
    end;
end;
</code>

**Входные параметры:**
  * Прямоугольная матрица A;
  * Прямоугольная матрица B. 
**Выходные параметры:**
  * Прямоугольная матрица R.
**Примечание:**\\
  * Память под матрицы A, B и R должна быть выделена.  Матрицы A,B и R должны иметь одинаковое число столбцов и строк.