Mọi người ơii xem mik sai ở đâu r sửa tớ với chứ mik chạy ctrinh 1 là 0 ra gì het, 2 là ra số 0 á (mà trong khi đó có 3 số nguyên tố) Đề: Nhập một mảng gồm n phần tử. Cho biết mảng đó có bao nhiêu phần tử là số nguyên tố? Bài mik: program ngto; uses crt; var n,dem2,j,i,dem: integer; a: array[1..100] of integer; function nguyento(x : integer) : boolean; var nt:boolean; begin nt:=false; for i:=1 to x do if x mod i=0 then dem:=dem + 1; if dem=2 then nt:=true; nguyento:=nt; end; begin; clrscr; repeat; write ('ban muon nhap bao nhieu phan tu:'); readln (n); until n>0; for j:=1 to n do begin; write ('nhap phan tu thu ',j,' :'); readln (a[j]); end; for j:=1 to n do if nguyento(a[j])=true then dem2:=dem2+1; readln; end.

`* Pascal:`

`" "`

program ngto;
uses crt;
var
    n, dem2, j, i, dem: integer;
    a: array [1 .. 100] of integer;
    
function nguyento(x: integer): boolean;
var
    nt: boolean;
begin
    nt := false;
    dem := 0;
    for i := 1 to x do 
        if x mod i = 0 then dem := dem + 1;
    if dem = 2 then nt := true;
    nguyento := nt;
end;

begin;
    clrscr;
    repeat;
        write ('Ban muon nhap bao nhieu phan tu: '); 
        readln (n);
    until n > 0;
    
    for j := 1 to n do
    begin;
        write ('Nhap phan tu thu ', j,': ');
        readln (a[j]);
    end;
    
    for j := 1 to n do 
        if nguyento(a[j]) = true then dem2 := dem2 + 1;
        
    write('Mang co ', dem2, ' so nguyen to');
    
    readln;
end.

chỗ mình thêm thì mình in đậm+gạch chân nhé cái i:integer hình như ko có cũng dc mà mình làm 1 số bài nếu khai báo i ở ngoài bị lỗi nên mình khai báo ở trong hàm luôn :v(chủ yếu là để khác bài anh Sham 1 chút :) )

program ngto;
uses crt;
var
n,dem2,j,i,dem: integer;
a: array[1..100] of integer;

function nguyento(x : integer) : boolean;
var i:integer;
nt:boolean;
begin
nt:=false;
dem:=0;
for i:=1 to x do if x mod i=0 then dem:=dem + 1;
if dem=2 then nt:=true;
nguyento:=nt;
end;
begin;
clrscr;
repeat;
write ('ban muon nhap bao nhieu phan tu:'); readln (n);
until n>0;
for j:=1 to n do
begin;
write ('nhap phan tu thu ',j,' :'); readln (a[j]);
end;
for j:=1 to n do if nguyento(a[j])=true then dem2:=dem2+1;
write(dem2);
readln;
end.