[SerginhoLD]

Сообщение от Moonlight

Дано вектора а=(а1, а2, а3,....an) i b=(b1, b2 ,....bn). Найти скалярное произвидение векторов. Разделить каждый елемент масива б на полученое произвидение. Вывести на экран полученый масив.

Код:

scalar:=0;
for i:=1 to n do
  scalar:=scalar+a[i]*b[i]; //скаляр. пр.
for i:=1 to n do
  b[i]:=b[i]/scalar; //делим каждый элемент