Program BTT; Uses crt; Var A: array[1..1000] of longint; dl,dc,tl,tc,i,n: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
dl:=0; dc:=0; tl:=0; tc:=0;
For i:=1 to n do If A[i] mod 2 = 0 then Begin inc(dc); tc:=tc+A[i]; End
Else Begin inc(dl); tl:=tl+A[i]; End;
Writeln('Co ',dc,' so chan, tong la ',tc); Write('Co ',dl,' so le, tong la ',tl); Readln End.
