B1 Nhập N và dãy;
B2 i = 1 ; dl=0 ; dch=0;
B3 Nếu i>N thì tb dl và dch KT;
B4 Nếu ai chia cho 2 dư 0 thi dch= dch+1 ngược lai dl=sl+1;
B4 i=i+1; Quay lại B3
Mình nghĩ là vậy
{ nhập n và mảng a}
for i:= 1 to n do
if a[i] mod 2 = 0 then inc(c) else inc(l);
writeln(' so chan : ',c);
write(' so le :',l);