Chương trình:
program bt; 
uses crt; 
var a: array[1..200] of integer; i,n,tc,tl: integer; 
begin 
clrscr; 
write('Nhap vao so phan tu cua day a: '); readln(n); 
for i:=0 to n-1 do 
begin 
write('Nhap vao phan tu thu ',i+1,': ' ); 
readln(a[i]); 
end; 
tc:=0; tl:=0; 
for i:=0 to n-1 do 
begin 
if(a[i] mod 2 = 0) then tc:=tc+a[i] 
else tl:=tl+a[i]; 
end; 
if(tc<>0) then write('Tong cac so chan trong mang a la: ',tc,' . '); 
if(tl<>0) then write('Tong cac so le trong mang a la: ',tl); 
readln; 
end.