Question

Viết ct nhập một dãy số nguyên a gồm n phần tử.in ra số nguyên tố

Giúp mik vs ạ cần gấp lắm!

Answer 1

Program HOC24;

var i,n: integer;

a: array[1..1000] of integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do if nt(a[i]) then write(a[i],' ');

readln

end.