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;
{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.
Chúc bạn học tốt ^^
