Bài tập tìm số nguyên tố và các số khác nhau trong dãy

 

Nhập từ bàn phím số nguyên dương N(10 <= N<= 150) và dãy A có N số nguyên A1,A2,A3,…,AN. Hãy đưa ra màn hình số lượng các số nguyên tố trong dãy A, số lượng các giá trị khác nhau trong dãy A.

program bai_tap;
uses crt;
var
  A: array[1..100] of integer;
  i,j,N,dem,tong : integer;
  th: boolean;

function ktnt(a:integer):boolean;
var i:integer;
  kt:boolean;
begin
  kt:=true;
  if a<=1 then kt:=false;
  for i:=2 to trunc(sqrt(a)) do
  if (a mod i = 0) then kt:=false;
  ktnt:=kt;
end;

begin
  clrscr;
  write ('Nhap N:');
  readln(N);
  while ((n <= 10) or (n >= 150)) do
  begin
    write ('Xin moi Nhap lai:');
    readln(N);
  end;

  for i:=1 to n do
  begin
    write ('Nhap A[',i,']');
    readln(a[i]);
  end;
  for i:=1 to n do
  begin
    if ktnt(A[i]) then
    tong:=tong+1;
  end;
  dem:=1;
  for i:=2 to n do
  begin
    th:=true;
    for j:=1 to i-1 do  if a[j]=a[i] then
    th:=false;
    if th=true then dem:=dem+1;
  end;
  writeln('Trong day co:',tong,' so nguyen to');
  writeln('Trong day co:',dem,' gia tri khac nhau');
  readln;

end.