Tin học thuật toán

[Nguyễn Hiếu Nghĩa]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đếm số lượng số nguyên tố có trong 1 dãy số nguyên cho trước(thuật toán và ý tưởng)

 

[ka1412]

Đếm số lượng số nguyên tố có trong 1 dãy số nguyên cho trước(thuật toán và ý tưởng)

ý tưởng: làm 1 function kiểm tra số nguyên tố rồi cho chạy với từng số trong mảng, nếu đúng số nào thì tăng biến đếm lên 1
thuật toán: m ko biết giải thích thì code được không

uses crt;
var a:array[1..100] of integer;
n,i,k:integer;
function snt(q:integer):boolean;
var w:integer;
begin
    snt := true;
    if q<=1 then snt:=false;
    if q>=2 then
    for w:=2 to trunc(sqrt(q)) do
    if q mod w=0 then snt:=false;
end;
begin
    clrscr;
    k := 0;
    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 snt(a[i])=true then inc(k);
    write('So so nguyen to trong mang la:',k);
    readln
end.

P/s: Có gì không hiểu thì cứ hỏi mình nha =)