排序算法1.pptVIP

代码 const max=10000; var a:array[1..max] of longint; m,n,s,i,j,p:longint; begin assign(input,carry.in);reset(input); assign(output,carry.out);rewrite(output); s:=0; read(m); for i:=1 to m do read(a[i]); for i:=1 to m-1 do for j:=1 to m-i do if a[j]a[j+1] then begin p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p; s:=s+1; end; write(s); close(input);close(output); end. 例三 军事机密(Secret.pas) 【问题描述】 军方截获的信息由n（n=30000）个数字组成，因为是敌国的高端秘密，所以一时不能破获。最原始的想法就是对这n个数进行小到大排序，每个数都对应一个序号，然后对第i个是什么数感兴趣，现在要求编程完成。 【输入格式】 第一行n，接着是n个截获的数字，接着一行是数字k，接着是k行要