/*冒泡超時，採用了堆排序*/

ElementType Median( ElementType A[], int N )
{
  int i,j;
  float k;
  
  int p,c;
  for(i=(N-1)/2;i>=0;i--)
  for(p=i,c=2*p+1;c<=N-1;)
  {
      if((A[c+1])&&(A[c+1]<A[c]))
         c=c+1;
      if(A[c]<A[p])
      {
         k=A[c];
         A[c]=A[p];
         A[p]=k;
      }
      p=c;
      c=2*p+1;
  }                              //最小堆

  for(i=N-1;i>0;i--)
  {
    k=A[0];
    A[0]=A[i];
    A[i]=k;                     //調序
    for(j=0;j*2+1<i;)
    {
      if(j*2+2<i)
      {
        if(A[j*2+1]>A[j*2+2]) 
            j=j*2+2;
        else 
            j=j*2+1;
      }
      else 
          j=j*2+1;            //找到較小的孩子
      
      if(A[j]<A[(j-1)/2])
      {
        k=A[j];
        A[j]=A[(j-1)/2];
        A[(j-1)/2]=k;                  
      }
      else break;
    }                           //下滲
  }
  return A[(N-1)/2];                    //要認真分析下標
}