Chương trình:
uses crt;
var a:array[1..1000000] of longint;
n,x,i:longint;
function nt(x:longint):boolean;
var i:longint;
begin
nt:=false;
for i:=2 to trunc(sqrt(x)) do
if (x<2) or (x mod i=0) then exit;
nt:=true;
end;
begin
clrscr;
write('Nhap do dai cua day: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
clrscr;
write('Nhap x=');readln(x);
writeln('Cac chi so va gia tri co phan tu = ',x);
for i:=1 to n do
if a[i]=x then writeln('a[',i,']=',a[i]);
writeln('Cac chi so va gia tri co phan tu la so nguyen to');
for i:=1 to n do
if nt(a[i])=true then writeln('a[',i,']=',a[i]);
readln;
end.
