31 августа, 08:41

Напишите программу, размещающую в памяти два вектора и вычисляющую их скалярное произведение.

0
Ответы (1)
  1. 31 августа, 10:28
    0
    { Free Pascal - fpc 2.6.4 }

    var

    i, n:integer;

    A, B:array of integer;

    p:longint;

    begin

    Write ('Число элементов в векторах='); Read (n);

    Randomize;

    SetLength (A, n);

    Writeln ('Вектор A');

    for i:=0 to n-1 do begin A[i]:=Random (51) - 25; Write (A[i],' ') end;

    Writeln;

    SetLength (B, n);

    p:=0;

    Writeln ('Вектор B');

    for i:=0 to n-1 do begin

    B[i]:=Random (51) - 25;

    Write (B[i],' ');

    p:=p+A[i]*B[i]

    end;

    Writeln;

    Writeln ('Скалярное произведение равно ', p);

    end.

    Тестовое решение:

    Число элементов в векторах=15

    Вектор A

    -16 - 6 - 1 6 - 6 7 22 4 16 19 3 - 21 19 22 7

    Вектор B

    21 21 - 2 - 8 - 3 25 - 4 20 6 - 11 8 10 - 16 - 16 19

    Скалярное произведение равно - 1145
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Напишите программу, размещающую в памяти два вектора и вычисляющую их скалярное произведение. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы