不是VIP会员,不能显示答案

题目解答

题目:
const SIZE = 100;
Var n, f, i, left, right, middle : integer;
a:array[1..SIZE] of integer;
begin
readln(n, f);
for i := 1 to n do read(a[i]);
left := 1;
right := n;
repeat
middle := (left+right) div 2;
if (f <= a[middle]) then right := middle
Else left := middle+1;
until (left >= right);
writeln(left);
end.
输入:12 17
2 4 6 9 11 15 17 18 19 20 21 25

输出:7
考点:
分析:
解答:
评论:
老师: