Cho mảng 1 chiều gồm N phần tử có kiểu dữ liệu là nguyên . Mảng vừa cho có bn phần tử là số nguyên tố
2 câu trả lời
program ngto;
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('Phan tu thu ',i,': '); readln(A[i]);
if ktnt(A[i]) then d:=d+1;
end;
write('Mang tren co ',d,' phan tu la so nguyen to');
readln;
end.
