a] Duyệt toàn bộ mảng ,nếu số nào chia hết cho 2 thì là số chẵn còn lại là số lẻ. Ta dùng một biến để đếm số chẵn . Sau đó lấy số phần tử trừ đi số phần tử chẵn.
program csc;uses crt;var a:array[1..100] of integer; i,d,n:integer;begin clrscr; write['nhap so phan tu cua day ']; readln[n]; d:=0; for i:=1 to n do begin write['a[',i,']=']; readln[a[i]]; end; for i:=1 to n do if a[i] mod 2=0 then d:=d+1; writeln['so so chan la ',d,' so so le la ',n-d]; readkey;end.
b] Số lượng số nguyên tố trong dãy
Duyệt toàn bộ các số trong dãy với mỗi số ta kiểm tra xem số này có chia hết số nào từ 2 đến a[i]-1 của nó không ?. Nếu không thì kết luận là số nguyên tố.
program csc;uses crt;var a:array[1..100] of integer; i,d,n,j:integer; t:boolean;begin clrscr; write['nhap so phan tu cua day ']; readln[n]; d:=0; for i:=1 to n do begin write['a[',i,']=']; readln[a[i]]; end; for i:=1 to n do begin t:=true; for j:=2 to a[i]-1 do begin if [a[i] mod j=0] and [a[i]2] then begin t:=false; break; end; end; if t=true then d:=d+1; end; writeln['so cac so nguyen to trong day la ',d]; readkey;end.
Kết quả:
Nếu dãy chỉ có một số hoặc hai số thì chắc chắn là cấp số cộng.
Nếu dãy có hơn hai số thì tính công sai là a[1]-a[0] sau đó duyệt cả mảng nếu có số nào vi phạm quy luật của cấp số cộng a[i] khác a[i-1]+d thì kết luận luôn không là cấp số cộng.
Nếu đến cuối dãy mà không có số nào vi phạm thì kết luận là cấp số cộng.
program csc;uses crt;var a:array[1..100] of integer; i,n,d:integer; t:boolean;begin clrscr; write['nhap so phan tu cua day ']; readln[n]; for i:=1 to n do begin write['a[',i,']=']; readln[a[i]]; end; if n