k:=2;
while (k<=100)and not((y[k-1]<x)and(x<=y[k]))
inc(k);
Задачка на массивы.Окажите помощь пожалуйста!
Даны натуральные числа x, y1, ..., y100 (y1 < y2 < ... < y100, y1 < x ≤ y100). Найти натуральное k, при котором yk-1 < x ≤ yk.