ответ
begin
ReadArrInteger(10).Where( x -> x mod 5 = 0).Product().Print();
end.
PascalABC.NET
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив 10 целых чисел, в диапазоне от 1 до 30. Найти произведение элементов массива, кратных написать программу!
ответ
begin
ReadArrInteger(10).Where( x -> x mod 5 = 0).Product().Print();
end.
PascalABC.NET