Найти 2 ближайших ел-та в массиве

[neon2k]

Сабж на Паскаль/дульфи...
Да если что, то и C++, хотя его я вообще не знаю... желательно тогда с комментами...
Важен сам алгоритм мобщем.

Задача:
Имею числовой отсортированный массив.
Т.е. массив из n-го кол-ва числовых элементов, которые упорядочены по значению... по возрастанию....(если эта информация вообще нужна)
Пользователь вводит число... И надо вывести или это число, если оно имеется(ну это понятно) или 2 ближайших числа сверху и снизу...

Т.е. массив:
1
2
3
9
12
Пользователь вводит "4"...
Ответ: "3" и "9"....

Вот собственно задача.

До пятницы горит!

[MalexG]

Используйте бинарный поиск. Т.е. берете серединный элемент отсортированного массива и определяете, к какой половине элементов массива ближе искомый. К левой или правой?. К примеру, если ближе к левой, то берете для рассмотрения только левую часть элементов массива. И таким образом доберетесь до искомого элемента (элементов). Если краткое изложение непонятно, почитайте литературу.

[maladoy]

Сообщение от MalexG

Используйте бинарный поиск. Т.е. берете серединный элемент отсортированного массива и определяете, к какой половине элементов массива ближе искомый. К левой или правой?. К примеру, если ближе к левой, то берете для рассмотрения только левую часть элементов массива. И таким образом доберетесь до искомого элемента (элементов). Если краткое изложение непонятно, почитайте литературу.

зачем так сложно то вот так же проще:
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
var i,n,e,e1,e2:integer;
s:array[1..1000] of integer;
x,y:integer;
begin
try
writeln('vvedi n');
readln(n);
writeln;
for I := 1 to n do
readln(s[i]);
writeln('vvedi element');
readln(e);
x:=1;

while e>s[x] do
x:=x+1;

while e<s[n] do
n:=n-1;
writeln(s[n],' ' ,s[x]);
readln;



except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

[neon2k]

maladoy, огромное спасибо!