Напишите программу ** паскале для вычисления произведение отрицательных. Количество...

Question

Напишите программу на паскале для вычисления произведение отрицательных. Количество введенных чисел неизвестно, 0 – признак окончания ввода чисел.

Comments

можно как нибудь попроще а то я не понимаю.

---

Я написал в одну строчку - самый простой вариант

---

я попросил чтобы было понятно

---

Чего не понятного? Считывать последовательность натуральных чисел до тех пор, пока очередное число не ноль, из этой последовательности "вычленить" все, что меньше нуля и перемножить!

---

ReadSeqIntegerWhile(x->x<>0) - вводим числа, до введения 0; Where(x->x<0) - отбираем числа, которые меньше 0; Aggregate(BigInteger(1),(x,y)->(x*y)) - вычисляем их произведение

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.

Answer 2

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

begin
var (ans, n):= (1,1);
while n <> 0 do
  begin
    ans *= n<0?n:1;<br>    n:= ReadInteger;
  end;
Writeln(ans);
end.

Пример:
-3
-4
12
32
-5
0
-60

Comments

Можно попроще плиз

---

Непонятно мне

---

Можно Машку за ляшку, козу на возу, телегу с разбегу, а условие нужно ставить четко! Какое условие, такое и решение!