Question

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

Answer 1

program al;6
const 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.