Обчислення скалярного добутку двох векторів

Дано вектори a(a[1], a[2], … a[n]) та b(b[1], b[2], …, b[n]). Необхідно знайти їх скалярний добуток: S=a[1]*b[1]+a[2]*b[2]+… +a[n]*b[n].

program ScalDob;

uses

Crt;

var

a,b:array[1..20] of real;

s:real;

n,i:integer;

begin

ClrScr;

Writeln('Введіть кількість координат y',

' кожному векторі n<=20');

Readln(n);

Writeln('Введіть попарно координати',

'векторів a та b:');

For i:=1 to n do

Begin

Write('a[',i:2,']=');

Read(a[i]);

Write('b[',i:2,']=');

Readln(b[i]);

Writeln;

End;

s:=0;

For i:=1 to n do s:=s+a[i]*b[i];

Writeln('Скалярний добуток двох векторів',

'дорівнює s=',s:10:2);

Readln;

end.