в цикле for взять элемены массива какие там есть и посчитать сумму чётных элементов массива размер массива 10
решить в паскаль абс

  Если масив заполнить нужно рандомно: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.