Pascal 军事机密

很简单,代码如下：
program exam;
var a:array[1..30000] of longint;n,k,i,j,x:longint;
procedure paixu;
var temp:longint;
begin
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
for i:=1 to n-1 do
if a[i]>a[i+1] then
paixu;
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
readln;
paixu;
readln(k);
for i:=1 to k do
begin
readln(x);writeln(a[x]);
end;
end.
请楼主采纳

如果是截获的最高军事机密 那么 以现在 的技术 必定会有很强的保密措施 像这样的原始办法 根本就不可能完成 有了保密措施 就算是专门的破解器 也需要非常长的时间来破解 一个加密文件 要完全破解 运行完整个程序 要10万年 就算是专门的破解器也不例外

free Pascal语言与基础算法算法部分第二章数据排序课后第五题答案program secret;var a,b:array[1..30000]of longint; n,i,k,c:longint;{------------------------------}procedure sort(l,r:longint);var i,j,x,y:longint;begin i:=l; j:=r; x:=a[l]; repeat while a[i]j; if i

var a:array[1..100000] of integer; b:array[1..100000] of integer; n,k,m,x,i,j:integer; begin read(n); for i:=1 to n do read(a[i]); for i:=n-1 downto 1 do for j:=i to n-1 do if a[j]>a[j+1] then begin m:=a[j+1]; a[j+1]:=a[j]; a[j]:=m; end; read(k); for i:=1 to k do read(b[i]); for i:=1 to k do writeln(a[b[i]]); end.
LS的输出不对