可恶的pascal啊！

program qsort;
var l,r,i:longint;
a:array[1..100] of longint;
procedure qsort(l,r:longint);
var i,j:longint;
mid:real;
begin
i:=l;j:=r;mid:=a[(l+r)div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then begin
swap(a[i],a[j]);
inc(i);dec(j);end;
until i>j;
if j>l then qsort(l,j);
if i<r then qsort(i,r);
end;
begin
readln(r);
for i:=1 to r do
read(a[i]);
qsort(1,r);
for i:=1 to r do
write(a[i]);
end.


有时候就算有一点小小的错误，都算你挂掉···

while，repeat···until，死循环玩完

我发的程序前面的空格被省了，见谅一下呃呃呃····

swap是？

么么哒pascal不好玩 还不如跟我一起搞爆吧盖楼什么程序段

= =你也学pasca。。八中那个教室坐哪的

我只知道怎么弄死循环的文件夹...

饿..好吧 我承认LZ，你的智商实在是..我没有话说了

http://www.zjtg.cn/itjs/pascal/ 进去学习下吧

相信你会傻掉的~

难度不是一般的高啊~ 幸亏有本老师发的Free pascal~