Формула согласно теореме:
Скалярное произведение векторов a{x1; y1; z1} и b{x2; y2; z2} выражается формулой ab= x1x2+ y1y2+ z1z2 (a и b — соответственно это вектора)
INPUT n
DIM a(n),b(n)
PRINT "vvedite 1 vektor"
FOR i=1 TO n
INPUT a(i)
NEXT
PRINT "vvedite 2 vektor"
FOR i=1 TO n
INPUT b(i)
NEXT
FOR i=1 TO n
ab=ab+a(i)*b(i)
NEXT
PRINT ab