uses crt; var a : array[1..100] of integer; n,i ,c,l : integer; begin c:=0; l:=0; write('Nhap n:'); readln(n); for i:=1 to n do begin write('Nhap phan tu ',i,':'); readln(a[i]); end; for i:=1 to n do if a[i] mod 2=0 then c:=c+a[i] else l:=l+a[i]; write('Tong chan :', c); write('Tong le :', l); readln end.
