RosettaCodeData/Task/Dot-product/ZX-Spectrum-Basic/dot-product.zx
2016-12-05 22:15:40 +01:00

5 lines
172 B
Text

10 DIM a(3): LET a(1)=1: LET a(2)=3: LET a(3)=-5
20 DIM b(3): LET b(1)=4: LET b(2)=-2: LET b(3)=-1
30 LET sum=0
40 FOR i=1 TO 3: LET sum=sum+a(i)*b(i): NEXT i
50 PRINT sum