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

Ерунда какая-то. В математике еще было бы понятно, а в информатике это не ответ.

Ох, не посмотрел что это нформатика, извиняюсь)

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

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.

Пример414.5 0.018 56 3.7Верно