Question

Даны N чисел.Верно ли,что их проищведение меньше 1000.Плиз Срочно

Answer 1

Нет! Так как это могут быть числа 20 23 43 5 и т.д., они могут в произведении давать число, которое человеку неизвестно

Answer 2

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 if ReadSeqReal(ReadInteger).Aggregate(1.0, (a, b)-> a * b) < 1000

   then Print('Верно')

 else Print('Неверно')

end.

Пример

4

14.5 0.018 56 3.7

Верно