Question

Viết chương con trình nhập vào một mảng đêm xem trong mảng có bao nhiêu số nguyên tố

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

if kt=0 then inc(dem);

end;

writeln(dem);

readln;

end.