procedure Mul(var R:TMatrixMN; A:TMatrixMN; B:Real);
var 
  i,j:Integer;
begin
 for i:=0 to RowsCount(A)-1 do
  for j:=0 to ColumnsCount(A)-1 do
    R[i,j]:=A[i,j]*B;
end;

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

• Прямоугольная матрица A.
• Скаляр, реальное число B.

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

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

Примечание:

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