Найти корень числа бинарным поиском - PascalABC.NET

Формулировка задачи:

Нужно написать код нахождения корня числа, используя бинарный поиск.

Решение задачи: «Найти корень числа бинарным поиском»

Листинг программы

for i := 1 to k do begin
    read(b[i]);
    l := 1;
    r := n + 1;
    while (r - l > 1) do begin
      m := (l + r) div 2;
      if (a[m] <= b[i]) then
        l := m
      else
        r := m;
    end;
end;

Объяснение кода листинга программы

В данном коде выполняется поиск корня числа b[i] методом бинарного поиска.

Переменная i является счётчиком количества итераций от 1 до k.
В каждой итерации происходит чтение числа b[i] из стандартного ввода.
Переменные l и r устанавливаются в граничные значения для текущего интервала поиска.
Пока разница между r и l больше 1, выполняется поиск подходящего значения m для разбиения интервала.
Если a[m] меньше или равно b[i], то значение l присваивается m, иначе значение r присваивается m.
После выхода из цикла, в переменной l будет храниться значение, которое является корнем числа b[i].