uses crt; var n,i,tc,tl:longint; a:array[1..1000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin read(a[i]); if a[i] mod 2=0 then inc(tc,a[i]) else inc(tl,a[i]); end; readln; writeln('Tong chan: ',tc,'; Tong le: ',tl); readln end.
