*Cách 1:Thông thường.
program nguyento;
uses crt;
var A:array[1..1000] of inteegr;
n,i,d:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
write('Cac so nguyen to trong mang la: ');
for i:=1 to n do
if A[i]>2 then
begin
d:=0;
for j:=2 to n div 2 do
if n mod j=0 then
begin
d:=1;
break;
end;
if d=0 then write(A[i],' ');
end;
readln;
end.
*Cách 2:Nâng cao.
program nguyento;
uses crt;
var A:array[1..1000] of integer;
n,i,d:integer;
function ktnt(k:integer):boolean;
var l:integer;
begin
ktnt:=false;
if k<2 then exit;
for l:=2 to trunc(sqrt(k)) do
if k mod l=0 then exit;
ktnt:=true;
end;
BEGIN
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
if ktnt(A[i]) then d:=d+1;
end;
if d=0 then write('Khong co so nguyen to trong day')
else
begin
write('Co ',d,' so nguyen to trong day do la: ');
for i:=1 to n do
if ktnt(A[i]) then write(A[i],' ');
end;
readln;
end.
