主题：请教程序编写问题.......急急急

思路是这样的，用冒泡排序将次高点用冒泡排序获得

找了段冒泡排序的代码，仅供楼主参考

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

然后在内层循环中用一个变量作为中间变量，去交换数组中前后元素，达到升序或降序将数组中所有元素排序的目的