Помогите с заданием по информатике, пожалуйста 1 и 3

const  n = 7;

var  i:integer;

a:array[1..n] of integer;

begin

 randomize;

for i:=1 to n do

 begin

   a[i]:=random(200);

   write(a[i],' ');

 end;

end.

const  n = 10;

a:array[1..n] of integer = (-1,0,12,-2,5,-1,3,4,0,-8);

var  i,sum:integer;

begin

sum:=0;

 for i:=1 to n do

  if a[i] mod 2=0 then sum:=sum+a[i];

write(sum);

end.