Задан одномерный массив целых чисел. Найти произведение тех ее элементов, которые делятся на 4 без остатка (алгоритм и Pascal-программа)

Var a:array[1 ... 100] of integer;

i, p, n:integer;

begin

writeln ('введите количество элементов') ; read (n) ;

p:=1;

randomize; {случайные числа}

for i:=1 to n do {от 1 до n элемента}

begin

a[i]:=random (100) - 50; {случайные числа, можешь указать любые значения}

if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0}

p:=p*a[i]; {умножаем текущее p на этот элемент}

end;

writeln (p) ; {выводим произведение}

end.

В случае, если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then

замени на if (a[i]0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.