[NoCD]

смотри вот этот образец, сам дня два парился, а на самом деле все просто

index=0 
number=9 

     for(i=0;i<number;i++) 
{              _root["p"+i]=random(number) 
                trace(_root["p"+i])} 
   jj=0 
   trace("........") 
     for(j=0;j<number;j++) 
{    for(k=0;k<number;k++) 
{   if(index==_root["p"+k]) 
{               jj++ 
}} 
                trace("Число "+index+"="+jj+" штуки") 
                index++ 
                jj=0 
}

надеюсь то, что требовалось