Program tinh_tong;
Uses crt;
Var A : array [1..150] of integer;
S,i,n : integer;
Begin
Write ('nhap n=');
Readln (n);
For i:=1 to n do
Begin
Write ('nhap phan tu thu ',i,'=');
Readln (A[i]);
end;
S:=0;
For i:=1 to n do
If ((A[i]< 0) and (A[i] mod 2=0))then
S:=S+A[i];
Writeln ('Tong cac so chan nho hon 0 trong day la:', S);
Readln
End.