progran baitap6_chuong4; uses crt; var array[1..100] of integer; if: boolean; N, i„ l: integer; so_nt, so_chan: integer; begin for i := -1000 to 1000 do if i>0 then NT:= false; so_chan:=0; so_nt:=0; {Nhap vao) repeat write('So phan tu cua day A (N<=100), N= *); readln(N); until (N>0) and (N<=100); for i:= 1 to N do begin {kiem tra cac phan tu cua day khi nhap vao} repeat write('A[',i,']= ');readln(A[i]); if (a[i]>1000) or (a[i]<-1000) then write('Moi nhap lai "); 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 begin u: = 2 ; 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; end, end; {In ra man hinh} writeln('So luong so chan:',so_chan); writeln('So luong so le:',N - so_chan); writeln(’So luong so nguyen tro:', so_nt); readln End. Khi chạy chương trình, ta lần lượt nhập các phần tử của dãy A: Với N = 3 và các phần tử được nhập vào theo thứ tự: A[1]=5 A[2]=7 A[3]=900 thì chương trình đưa ra thông báo: So luong so chan: 1 So luong so le: 2 So luong so nguyen to: 2