// http://electronix.ru/forum/index.php?showtopic=114436&view=findpost&p=1180944

datatype median( datatype array, int length)  // массив и его длина
{
    int  slit = length/2;

    for( int i=0; i < length; i++) {
        int s1=0, s2=0;
        datatype val = array[i];
        for( int j=0; j < length; j++) {
            if( array[j] < val) {
                if( ++s1 > slit) break;
            } else if( array[j] > val) {
                if( ++s2 > slit) break;
            }
        }
        return val;
    }

    return 0;  // чистая формальность, досюда исполнение никогда не доходит
}