Question

Среди 30 элементов числовой последовательности 3-3 * cos (3 * n * n) выведите на экран: произведение положительных элементов
ПАСКАЛЬ!

Answer 1

begin

 SeqGen(30, n -> 3 - 3 * Cos(3 * n * n), 1)

     .Where(p -> p > 0).Product.Print

end.