в цикле for брать элемены массива какие там есть и посчитать

  Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
 s:=0; 
 for i:=1 to 10 do 
 begin 
  mas[i]:=random(21)-20;   
  if mas[i] mod 2=0 then  s:=s+mas[i]; 
 end;
writeln('S=',s)
end.

  Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
 s:=0; 
 for i:=1 to 10 do 
  begin   
    readln(mas[i]); 
    if (mas[i] mod 2)=0 then s:=s+mas[i]; 
  end;
 writeln('S=',s)
end.