Dãy số_đếm

[lehang_gb1]

Viết chương trình nhập vào dãy số nguyên, in ra số lần xuất hiện và chỉ số của các phần tử trong dãy.
In ra thông báo:
- Số 1 có 3 lần xuất hiện là: a[1] a[5] a[7]
- Số 3 có 3 lần xuất hiện là: a[2] a[8] a[12]
- Số 2 có 5 lần xuất hiện là: a[3] a[6] a[9] a[10] a[11]

[duynhan1]

Var a:array[1..100] of integer;
b:array[1..100] of boolean;
i,n:integer;
Begin
Fillchar(b,sizeof(b),true); {gan tat ca cac phan tu cua b bang true}

Readln(n);
For i:=1 to n do readln(a[i]);

For i:=1 to n do
If a[i] then
Begin
dem:=1;
Write(a[i], ' xuat hien o cac vi tri:', i, ' ');
Repeat
j:=i+1;
If a[j]=a[i] then
Begin
Write(j, ' ');
dem:=dem+1;
End;
Until j>=n;
Writeln('. Tong cong co:', dem, ' lan.');
End; {End if, for }
Readln;
End.