Question

Cho dãy a1,a2,a3...an. ai là số nguyên dương, hãy viết chương trình tìm số nguyên tố nhỏ nhất của dãy

Answer 1

Program hotrotinhoc_hoc24;

var i,d,n,min: integer;

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

function nt(x: longint): boolean;

var j: longint;

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;

nt:=true;

end;

begin

write('Nhap so phan tu cua day: '); readln(n);

min:=32000; d:=0;

for i:=1 to n do

begin

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

if nt(a[i]) then

begin

if a[i]<min then min:=a[i];

inc(d);

end;

end;

if d=0 then write('Trong day khong co so nguyen to') else write('So nguyen to nho nhat trong day la : ',min);

readln

end.