// 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