/
spirzen
/
it-code-examples
Обзор
Документация
Войти
/
spirzen
/
it-code-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
examples/pascal/lab-1140-014/main.pas
38 строк
584 B
Spirzen
Code migration pack
09 июн 2026, 01:41
09 июн 2026, 01:41
cebc284
Код
Авторство
О чём код?
program BinarySearch; function Find(a: array of integer; n, key: integer): integer; var lo, hi, mid: integer; begin lo := 0; hi := n - 1; while lo <= hi do begin mid := (lo + hi) div 2; if a[mid] = key then begin Find := mid; exit; end; if a[mid] < key then lo := mid + 1 else hi := mid - 1; end; Find := -1; end; var n, i, key, pos: integer; a: array of integer; begin ReadLn(n); SetLength(a, n); for i := 0 to n - 1 do Read(a[i]); ReadLn; ReadLn(key); pos := Find(a, n, key); WriteLn(pos); end.