Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 …AN đếm xem có bao nhiêu số nguyên to

program ct;

uses crt;

var i,n,j,so_nt:integer;

      A,D:array[1..100] of integer;

begin

clrscr;

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

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  so_nt:=0;

      for i:=1 to n do

  begin

    for j:=1 to A[i] do 

    if A[i] mod j=0 then D[i]:=D[i]+1;

    if D[i]=2 then so_st:=so_nt+1;

end;

   writeln('co',so_nt,' la so nguyen to');

readln

end.

uses crt;
var a,d : array[1..100] of integer;
i,n,s,j : integer;
begin clrscr;  s:=0;
write('Nhap so phan tu :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do begin
for j:=1 to a[i] do if a[i] mod j = 0 then d[i]:=d[i]+1;
if d[i]=2 then s:=s+1;  end;
write('Co tat ca ',s,' so nguyen to ');
readln
end.