// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x:=Arr(-0.1,0.05,0.7,0.8,-1.5,0.2,0.4,-1.0,0.1,1.5);
x.Println;
var y:=Arr(0.1,0.3,-0.9,0.2,-0.4,0.01,1.0,-0.25,-0.1,-0.3);
y.Println;
var t:=0.0;
for var i:=0 to 9 do t+=sqr(x[i])*y[i];
Writeln('t=',t)
end.
Результат
-0.1 0.05 0.7 0.8 -1.5 0.2 0.4 -1 0.1 1.5
0.1 0.3 -0.9 0.2 -0.4 0.01 1 -0.25 -0.1 -0.3
t=-1.97685