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

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

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

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

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;

Входные параметры:

• Прямоугольная матрица 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 должны имеет одинаковое число столбцов и строк. Но не обязаны быть квадратными.

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;

Входные параметры:

• Прямоугольная матрица A;
• Прямоугольная матрица B.

Выходные параметры:

• Прямоугольная матрица R.

Примечание:

• Память под матрицы A, B и R должна быть выделена. Матрицы A,B и R должны иметь одинаковое число столбцов и строк.