Массивы

[nastyat1996]

Подскажите пожалуйста как вычислить скалярное произведение двух n-мерных массивов?

[p51x]

как сумма покоординатных произведений

[nastyat1996]

Для одномерного массива можно так

uses crt;
var a,b:array[1..100] of integer;
    i,s,n:integer; r:byte;
begin
clrscr;
   Write('Vvedite razmernost massiva: '); Readln(r);
   Write('Vvedite razmer massiva: '); Readln(n);
   randomize;      
   
 for i:=1 to n DO
   begin
    a[i]:= random(100);
    write(a[i]:4);
   end;
   
  writeln; 
   for i:=1 to n DO
   begin
    b[i]:= random(100);
    write(b[i]:4);
   end;
   
  writeln;
   s:=0;
    for i:= 1 to n do
     s:=s+a[i]*b[i];
  Writeln('sp= ', s);
 Readln;
end.

а если он будет 2-мерный, 3-мерный, то что нужно добавить?

[p51x]

У вас в голове скорее всего спутались математическое понятие и "программисткое". В математике н-мерный вектор есть набор н чисел и скалярное произведение н-мерных векторов то, что у вас... только б для красоты надо массивы динамич=ческие и н вводить.