imin = -1;
min = 0;
for (i = 0; i < n; ++i) {
    if (imin != -1 &&
            fabs(x[i] - pr) < min &&
            x[i] < pr) {
        imin = i;
        min = fabs(x[i] - pr);
    }
}