Viết chương trình đếm trong dãy có bao nhiêu số chẵn

08-10-2012 16:45 #1

Viết chương trình nhập vào một dãy số nguyên khác 0[nhập số 0 để kết thúc dãy số]. Đếm xem dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ.

23-10-2012 20:26 #2

chương trình đơn giản mà bạn ! var c,l,i,n,a : integer; begin write['Nhap so phan tu cua day: ']; readln[n]; c:=0; l:=0; for i:=1 to n do begin write['Nhap phan tu thu ',i,': ']; readln[a]; if a mod 2 = 0 then c:=c+1 else l:=l+1; end; write['Day co ',c,' so chan va ',l,' so le']; readln;

end.