Помогите с паскалем.
Ввести одномерный массив A из 12 элементов. Определить в нём
произведение чётных элементов.

Спасибо большое)

не за что

а сможете ещё помочь?)

чем смогу помогу

program al;6const n=12;var a : array[1..n] of integer;p,i:integer;begin    writeln('vvedite massiv=');    for i := 1 to n do    readln (a[i]);    p:=1;    for i := 1 to n do    if a[i] mod 2=0 then p:=p*a[i];    writeln('proizwedenie ciotnih elementov=',p);    readln;    end.