Program Tenchuongtrinh;
Uses crt;
Var A: array[1..100] of longint;
      i,n,tong:longint;
Begin
         Clrscr;
         Write('Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
        tong:=0;
        For i:=1 to n do
          if (A[i]<0) then tong:=tong+A[i];
        Writeln('a. Tong cac so am trong day la: ',tong);
        tong:=0;
        For i:=1 to n do
          if (A[i] mod 2=0) then tong:=tong+A[i];
        Writeln('b. Tong cac so chia het cho 2 trong day la: ',tong);
        tong:=0;
        For i:=1 to n do
          if (A[i]>0) and (A[i] mod 3=0) then tong:=tong+A[i];
        Writeln('Tong cac so dung va chia het cho 3 trong day la: ',tong);
        Readln;
End.