Question

Помогите, плиз! В массиве B, содержащем 10 положительных и отрицательных целых чисел, вычислить произведение отрицательных элементов. Элементы массива вводить с клавиатуры.

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var b:=ReadArrInteger(10);
  Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Пример
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600

Answer 2

Для вычисления произведения отрицательных элементов в массиве B, содержащем 10 положительных и отрицательных целых чисел, можно использовать следующий алгоритм:

1. Создайте пустую переменную `product` и установите ее значение равным 1. Эта переменная будет использоваться для хранения произведения отрицательных элементов. 2. Считайте 10 чисел с клавиатуры и сохраните их в массиве B. 3. Пройдитесь по каждому элементу массива B. 4. Если элемент отрицательный, умножьте его на значение переменной `product`. 5. После завершения цикла, переменная `product` будет содержать произведение отрицательных элементов массива B.

Вот пример кода на языке Python, реализующий описанный алгоритм:

B = []
product = 1

for _ in range(10):
    num = int(input("Введите число: "))
    B.append(num)

for num in B:
    if num < 0:
        product *= num

print("Произведение отрицательных элементов:", product)

Пожалуйста, обратите внимание, что в данном примере предполагается, что пользователь будет вводить только числа. Если ввод могут быть и другие значения, необходимо добавить соответствующую проверку.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.