22.

1. progran baitap6_chuong4;
2. uses crt;
3. var
4. array[1..100] of integer;
5. if: boolean;
6. N, i„ l: integer; so_nt, so_chan: integer;
7. begin
8. for i := -1000 to 1000 do if i>0 then NT:= false;
9. so_chan:=0; so_nt:=0;
10. {Nhap vao)
11. repeat
12. write('So phan tu cua day A (N<=100), N= *);
13. readln(N);
14. until (N>0) and
15. (N<=100);
16. for i:= 1 to N do
17. begin
18. {kiem tra cac phan tu cua day khi nhap vao}
19. repeat
20. write('A[',i,']= ');readln(A[i]);
21. if (a[i]>1000) or (a[i]<-1000) then
22. write('Moi nhap lai ");
23. until (a[i]>-1000) and (a[i]<1000); = if A[i] mod 2 =0 then so_chan:= so_chan + 1; if A[i] >1 then
24. begin
25. u: = 2 ;
26. while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1; if u>sqrt(A[i]) then so_nt:= so_nt + 1;
27. end,
28. end;
29. {In ra man hinh}
30. writeln('So luong so chan:',so_chan);
31. writeln('So luong so le:',N - so_chan);
32. writeln(’So luong so nguyen tro:', so_nt);
33. readln
34. End.Bạn có thể tham khảo và chỉnh sửa
35. Mong đừng spam