CDE

Task/Dot-product/DWScript/dot-product-1.dwscript

@@ -0,0 +1,12 @@
+function DotProduct(a, b : array of Float) : Float;
+require
+   a.Length = b.Length;
+var
+   i : Integer;
+begin
+   Result := 0;
+   for i := 0 to a.High do
+      Result += a[i]*b[i];
+end;
+
+PrintLn(DotProduct([1,3,-5], [4,-2,-1]));

Task/Dot-product/DWScript/dot-product-2.dwscript

@@ -0,0 +1,4 @@
+var a := Vector(1, 3, -5, 0);
+var b := Vector(4, -2, -1, 0);
+
+PrintLn(a * b);