Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу...

Question

Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу [10;45[.Необходимо найти произведение элементов массива ,кратных 5.

---

Comments

Программу написать?

---

да

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var a:=ArrRandom(12,10,45); a.Println;
  var p:=a.Where(x->x mod 5=0).Aggregate(1,(a,b)->a*b);
  if p=1 then Writeln('Нет элементов, кратных 5')
  else Writeln('Произведение кратных пяти элементов: ',p)
end.

Тестовое решение:
26 35 31 28 22 23 26 17 32 40 42 22
Произведение кратных пяти элементов: 1400