Скалярное произведение векторов 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
Тестирование выполнено в программе QB64 ( Скачать )