1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin       
randomize;  S:=0;       
 for i:=1 to N do begin       
 m[i]:= random(201)-100;       
 writeln(m[i]);       
end;       
for i:=1 to N do       
 if m[i] mod 2 = 0 then       
 S:=S+m[i];       
writeln('Summa = ',S);         
readln;
end.

2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin       
randomize;  p:=0;       
for i:=1 to N do begin       
B[i]:= random(201)-100;       
 writeln(B[i]);       
end;       
for i:=1 to N do       
 if B[i] mod 3 = 0 then       
 p:=p*B[i];       
writeln('Proiz = ',p);         
readln;
end.