Question

PASCAL中，如何将排序后的几个数字取前5位输出。

Answer 1

直接输出阿
如 var a：array[1..100] of ....
begin
..sort(a)...
writeln(a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5]);
end.

追问

阿- - 不好意思没讲清楚。。我只是举例，
如果是读入10000个数字呢？
怎么通过PASCAL 提取前5000个和后5000个（分别输出）

Answer 2

直接输出：
for i:=1 to 5 do writeln(a[i]);