program ct;
uses crt;
var A:array[1..500] of integer;
i,n:integer;
S1,S2:longint;
begin clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
S1:=0; S2:=0;
for i:=1 to n do
begin
if A[i] mod 3=0 then S1:=S1+A[i]
if (A[i] mod 2=1) and (A[i]<0) then S2:=S2+A[i];
end;
writeln('Tong cac so chia het cho 3 la: ',S1);
writeln('Tong cac so le am la: ',S2);
readln;
end;
Học tốt!