Question

Пожалуйста, сделайте задание правильно. Напишите программу по задаче:Найти произведение элементов массива, кратных 3 и 9. Размерность массива - случайные числа от 5 до 500.
(Язык программирования - Паскаль)​

Answer 1

Ответ:

PascalABC.NET

begin

 var arr := ArrRandom(15, 5,500);

 arr.Where(x -> x mod 3 = 0).Where(x -> x mod 9 = 0).Product.Println;

end.