Question

program in turbo pascal ce va calcula suma numerelor pare

Answer 1

var

   n,i,s,x,y: integer;

begin

   read(n);

   s:=0;

   for i:=1 to n do begin

       read(x);

       if (x mod 2 < 1) then

           s:=s+x;

   end;

   write(s);

end.