thế thì bạn cho cái hàm kiểu dữ liệu boolean luôn đi
nếu là snt thì true
nếu ko phải snt thì false
bạn tham khảo cách tạo hàm của mình nè:
Function kt(n:integer):boolean;
var i:integer;
begin
kt:=false;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then exit;
if n<2 then exit;
kt:=true;
end;
rồi cho i chạy từ 1-->n kiểm tra nếu là snt thì cho biến đếm thêm 1 còn ko thì thôi
for i:=1 to n do
if snt(a[i])=true then dem:=dem+1;