Mọi người giúp e thuật toán pascal với!

[dungdunga3]

Mọi người cho e hỏi ý tưởng và chương trình để đếm số lần xuất hiện của tất cả các phần tử trong mảng 1 chiều đc ko?
Ví dụ:
với mảng : 2 2 6 4 8 5 1 9 4 3 6 4
thì kq sẽ là:
2 xuất hiện 2 lần
6 xuất hiện 2 lần
4 xuất hiện 3 lần
8 xuất hiện 1 lần
5 xuất hiện 1 lần
1 xuất hiện 1 lần
9 xuất hiện 1 lần
3 xuất hiện 1 lần
Mọi người giúp e với nhé! nếu có câu trả lời thì pm e với nhé!
yahoo: althougheffort_loveraway

[Em Chán Gà]

- Tạo thêm một mảng Bolean để chứa cờ đánh dấu các phần tử đã đếm
- Duyệt mảng
- Tại vị trí bất kỳ, nếu nó chưa đếm (Mảng Bolean tại đó = F) thì đếm và dựng cờ dánh dấu thành T
Trích 1 đoạn code thôi nha:

.....
For i:=1 to n do Boolean_Array[i]:=false;
For i:=1 to n do 
 Begin
   Dem:=0;
     If Boolean_Array[i]=False then
       Begin
        dem:=dem+1;
        For j:=i to n do
         If Array[j]:=Array[i] then 
          Begin
            dem:=dem+1;
            Boolean_Array[j]:=True;
          End; 
       If dem>0 then Write(i, 'xuat hien', dem, 'lan,');
      End;
 End;
......

Mới type, chưa test, vì máy hổng có PASCAL

[haplinhavxt]

   + Nhập dũ liệu
   + for i:= 1 to n do
           inc(sl[a[i]]);
    + for i:= 1 to max(a[i]) do
          writeln(sl[i]);