Поиск медианы

[demianimp]

Вот новый код алгоритм поиска с System.Collections.ArrayList:

static real con2median(container _con)
{
    System.Collections.ArrayList    arrayList = new System.Collections.ArrayList();
    container                       con;
    int                             lenCon = conLen(_con),
                                    i;
    real                            ret,
                                    ret1;
    anytype                         any;
    ;
    for(i = 1; i <= lenCon; i++)
    {
        arrayList.Add(any2real(conPeek(_con, i)));
    }
    arrayList.Sort();

    if(lenCon mod 2 == 0)
    {
        ret  = arrayList.get_Item(real2int(trunc(lenCon / 2)) - 1);
        ret1 = arrayList.get_Item(real2int(trunc(lenCon / 2)));

        ret = (ret + ret1) / 2;
    }
    else
    {
        ret = arrayList.get_Item(real2int(trunc(lenCon / 2)));
    }
    
    return ret;
}