Вычислить скалярное произведение векторов a и b в восьмимерном пространстве. программа...

Question

Вычислить скалярное произведение векторов a и b в восьмимерном пространстве. программа паскаль. Массивы

Answer 1

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
  Print('Введите координаты вектора a:');var a := ReadArrInteger(8);
  Print('Введите координаты вектора b:');var b := ReadArrInteger(8);
  Println('Произведение:', Range(0, 7).Select(t -> a[t] * b[t]).Sum);
end.

Пример:
Введите координаты вектора a: 1 4 2 3 4 5 7 2
Введите координаты вектора b: 1 4 2 4 5 3 1 4
Произведение: 83