Умножение вектора на число есть увеличение его длины.\\
Что соответствует по компонентному умножению его элементов.\\
1)
====== Алгоритм умножения вектора на число ======
procedure Mul(var R:TVectorN; A:TVectorN; B:Real);
var
i:Integer;
begin
for i:=0 to ColumnsCount(A)-1 do
R[i]:=A[i]*B;
end;
**Входные параметры:**
* Вектор A.
* Скаляр, реальное число B.
**Выходные параметры:**
* Вектор R.
**Примечание:**\\
Входные параметры не проверяются. Память под вектор R должна быть выделена. Вектор R должен иметь число элементов вектора A.