вычислить скалярное произведение векторов a и b в восьмимерном пространстве. программа паскаль. Массивы
Ответы
Ответ дал:
0
// 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
// Версия 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
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад