mặc dù hơi muộn nhưng thôi làm tài liệu về sau hehe
var a:array[1..1000] of longint;
i,n,dem1,dem2,tong:longint;
begin
readln(n); dem1:=0;tong:=0; dem2:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then inc(dem1); {tinh so cac so chia het cho 2}...