二分查找

var
a:array[1..10] of longint=(3,5,13,14,18,23,26,28,39,50);
low,high,mid,target:longint;
begin
	low:=1;
	high:=10;
	target:=115;
	repeat
		mid:=(low+high) div 2;
		if a[mid]<target then
		begin
			low:=mid+1
		end
		else
		begin
			if a[mid]>target then
			begin
				high:=mid-1;
			end
			else
			begin
				writeln('Found:',mid);
				break;
			end;
		end;
	until low>high;
	if low>high then writeln('Not Found');
end.