严格按题目要求的输入、输出格式读写数据
。
试
题
1
：
（源程序名：
T
1.pas，可执行文件名：
T
1.exe）
（输入文件名：
T
1.in，输出文件名：
T
1.out）
【问题描述】
给定长度为n(n<=100)的数列，按从大到小的顺序排序，并输出每个数据的原始顺序。
例如：输入：5
6 3 1 9 7
输出：

9

4
7
5
6
1
3
2
1

3
试
题2 ：（源程序名：T2.pas，可执行文件名：T2.exe）
（输入文件名：T2.in，输出文件名：T2.out）


//试题1
var
a:array[1..100,1..2]of integer;i,j,l:integer;
procedure exchange(var x,y:integer);
var t:integer;begint:=x; x:=y; y:=t;end;
begin
assign(input,'T1.in'); reset(input);
assign(output,'T1.out'); rewrite(output);
readln(l);
for i:=1 to l do begin read(a[i,1]); a[i,2]:=i; end;
for i:=1 to l-1 do for j:=i+1 to l doif a[i,1]<a[j,1] then
begin exchange(a[i,1],a[j,1]); exchange(a[i,2],a[j,2]); end;
for i:=1 to l do writeln(a[i,1],' ',a[i,2]);
close(input); close(output);
end.
//今天有点累了，有空还会写哦

这题全是水题，楼主自行百度NOIP、NOI、IOI或CTSC

第一题楼主完全可以改成n<=10000，然后打一个裸的快排或堆排就可以。
第二题用while循环模拟手工十进制转二进制过程即可。

太简单了嘛，lz没考过noip？

把哪题几分写上吧