Question

Найти произведение элементов,кратных 4 в массиве в (15)

Answer 1

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,1,99); a.Println;
  Writeln('Р4=',a.Where(x->x mod 4=0).Aggregate(1,(x,y)->x*y))
end.

Пример
36 55 99 11 96 46 91 53 64 85 19 55 7 15 34
Р4=221184

Answer 2

Для нахождения произведения элементов, кратных 4, в массиве из 15 элементов, нужно пройти по всем элементам массива и умножить только те элементы, которые кратны 4.

Примерно такой код можно использовать для решения этой задачи на языке Python:

array = [2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30]
result = 1

for element in array:
    if element % 4 == 0:
        result *= element

print(result)

В этом примере массив содержит 15 элементов, и мы проходим по каждому элементу. Если элемент кратен 4, мы умножаем его на переменную `result`. После прохода по всем элементам мы печатаем значение `result`, которое и будет произведением элементов, кратных 4.