(1) program sort(input,output) (2) var a:array[0..10]of integer; (3) procedure readarray; (4) var i:integer; (5) begin (6) for i:=1 to 9 do read(a[i]) (7) end; (8) function partition(y,z:integer):integer; (9) var i:integer; program sort (10) begin ..... procedure readarray (11) end; function partition(y procedure quicksort 国防科技大学计算机系602教研室 国防科技大学计算机系602教研室 （1） program sort(input, output) （2） var a: array[0..10] of integer; （3） procedure readarray; （4） var i: integer; （5） begin （6） for i:=1 to 9 do read(a[i]) （7） end; （8） function partition(y, z:integer):integer; （9） var i:integer; （10） begin ...... （11） end; program sort procedure readarray function partition(y procedure quicksort