思路是这样的，用冒泡排序将次高点用冒泡排序获得
找了段冒泡排序的代码，仅供楼主参考
input:vector(50,1,100,1);
variable:a[vector]=0;
msgout(1,'排序前');
for i=1 to vector do begin
a[i]:=rand(vector);
msgout(1,numtostr(a[i],0));
end
for j=2 to vector do begin
for i=vector downto j do begin
if a[i]<a[i-1] then begin
t:=a[i];
a[i]:=a[i-1];
a[i-1]:=t;
end
end
end
msgout(1,'排序后');
for i=1 to vector do begin
msgout(1,numtostr(a[i],0));
end
双重for循环，外层循环条件i<n-1; //n代表数组个数
内层循环j<n-i-1
然后在内层循环中用一个变量作为中间变量，去交换数组中前后元素，达到升序或降序将数组中所有元素排序的目的
把问题重新表述一下，否则没有人能帮你。高点是有范围的，多少周期次高点和多少周期的高点的次周期是不同的概念。如果用多少周期次高点来最操作条件，那么你就是使用了未来数据。