Question

С клавиатуры вводится 10 чисел. Найти произведение тех чисел, которые попадают на интервал (5, B), В граница интервала (вводим с клавиатуры).​

Answer 1

PascalABC.NET:

• ##
• var a := ReadArrInteger('Введите 10 чисел:', 10);
• var B := ReadInteger('Введите B:');
• a.Where(x → x in 6..(B-1)).Product.Print