Câu 1
program dayso;
uses crt;
var demchan,demle,tongchan,tongle,i,n:integer;
     A:array[1..100] of integer;
begin clrscr;
write('nhap n'); readln(n);
for i:=1 to n do 
begin; write('A[i]='); readln(A[i]); end;
demchan:=demle:=tongchan:=tongle:=0;
for i:=1 to n do if A[i] mod 2 = 0 then begin; tongchan:=tongchan+A[i]; demchan:=demchan+1; end;
 else begin; tongle:=tongle+A[i]; demle:=demle+1; end;
writeln('cau a: tong cac so chan trong day la',tongchan);
writeln('cau b: tong cac so le trong day la',tongle);
writeln('cau c: co tat ca ',demchan,' so chan trong day');
writeln('cau d: co tat ca',demle,' so le trong day');
readln;
end.