Tài liệu Thuật toán đếm số phần tử khác nhau của mảng

Bài 20: Cho một dãy số nguyên gồm n phần tử. a.Nhập dãy số (n nhập từ bàn phím, 1<=n<=100). b.In dãy vừa nhập ra màn hình. c.Đếm xem trong dãy ban đầu có bao nhiêu giá trị khác nhau d.Nhập vào một số nguyên k (1<=k<=n). xoá phần tử thứ k trong dãy. viết dãy kết quả ra màn hình. program p2b20; var a:array[1..100]of integer;     i,j,n,k,dem:integer;     th:boolean; begin     write('nhap n=');     readln(n);     for i:=1 to n do begin               write('a[',i,']=');               readln(a[i]);               end;     writeln('in day vua nhap ta man hinh');     for i:=1 to n do writeln('a[',i,']=',a[i]);     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('so gia tri khac nhau la:',dem); write('nhap k=');     readln(k);     for i:=k to n­1 do a[i]:=a[i+1];     writeln('in day vua xoa ra man hinh');     for i:=1 to n­1 do writeln('a[',i,']=',a[i]);     readln; end.