Найти значение: min(P1, P2), где
P1 – скалярное произведение векторов A и B.
P2 – скалярное произведение векторов C и D.
Вычисление скалярного произведения векторов оформить подпрограммой.
Исходные данные: А=(-5.1, 2.7, 3.4, 6.2); В=(1.2, 3.4, 0, 2.5);
С=(2.7, 3.4, 2.5, 6.3, 7.8); D=(1.7, -1.3, 2.8, 0, 7.2);

спасибо большое!!)))))

Спасибо тут принято выражать нажатием на специально созданную для этой цели кнопочку)))

Тогда будет Паскаль...const  nm = 5;type  V = array[1..nm] of real;function SP(var a, b: V; n: integer): real;var  i: integer;  s: real;begin  s := 0;  for i := 1 to n do s := s + a[i] * b[i];  SP := send;var  A, B, C, D: V;  P1, P2, min: real;  i, n: integer;begin  Write('Введите размерность вектора A: '); Readln(n);  Write('Введите координаты вектора A через пробел: ');  for i := 1 to n do Read(A[i]);  Write('Введите координаты вектора B через пробел: ');  for i := 1 to n do Read(B[i]);  P1 := SP(A, B, n);  Write('Введите размерность вектора C: '); Readln(n);  Write('Введите координаты вектора C через пробел: ');  for i := 1 to n do Read(C[i]);  Write('Введите координаты вектора D через пробел: ');  for i := 1 to n do Read(D[i]);  P2 := SP(C, D, n);  if P1 > P2 then min := P2 else min := P1;  Writeln('Меньшее из скалярных произведений (A*B),(C*D) равно ', min);end.Результаты выполнения:Введите размерность вектора A: 4Введите координаты вектора A через пробел: -5.1 2.7 3.4 6.2Введите координаты вектора B через пробел: 1.2 3.4 0 2.5Введите размерность вектора C: 5Введите координаты вектора C через пробел: 2.7 3.4 2.5 6.3 7.8Введите координаты вектора D через пробел: 1.7 -1.3 2.8 0 7.2Меньшее из скалярных произведений (A*B),(C*D) равно 18.56