Program a7_69;
uses crt;
const n=10;
var a,b:array[1..n] of integer;
      i,summa:integer;
BEGIN
clrscr;
randomize;
writeln(' Массив "A"');
for i:=1 to n do
  begin
    a[i]:=random(9)-5;
    write(a[i]:3);
  end;
writeln;
writeln(' Массив "B"');
for i:=1 to n do
  begin
    b[i]:=random(9)-5;
    write(b[i]:3);
  end;
writeln;
summa:=0;
for i:=1 to n do
summa:=summa+a[i]*b[i];
writeln(' Скалярное произведение массивов "А" и "В" равно ',summa:2);
readln;
END.