
Pascal
SkyZone_H
这个作者很懒,什么都没留下…
展开
-
TYVJ题解(P1025)
Program Problem_1025;Var n,i,j,k:Longint;Var a:array[1..10000] of Longint;Procedure Print(a:String;b:Longint);BeginIF bWriteln(a)ElseWrite(a原创 2011-07-26 12:36:48 · 417 阅读 · 0 评论 -
TYVJ题解(P1001),绝对最优解!
rogram Problem_P1001;Var n,k:Longint;Var a:array[1..10000] of Longint;Var i,m:Longint;procedure qsort(dep,top:longint);var i,j,s,t:longint;原创 2011-07-26 12:35:51 · 660 阅读 · 0 评论