В цикле 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.