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

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

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

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

Пример
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт