選擇排序程式段

begin begin begin

.選擇排序
選擇排序的基本思想是：
對待排序的記錄序列進行n-1遍的處理，第1遍處理是將L[1..n]中最小者與L[1]交換位置，第2遍處理是將L[2..n]中最小者與L[2]交換位置，......，第i遍處理是將L[i..n]中最小者與L[i]交換位置。這樣，經過i遍處理之後，前i個記錄的位置就已經按從小到大的順序排列好了。
例1:輸入序列數據按非減順序輸出.
程式如下:
program xzpx;
const n=7;
var a:array[1..n] of integer;
i,j,k,t:integer;
begin
write('Enter date:');
for i:= 1 to n do read(a[i]);
writeln;
for i:=1 to n-1 do
begin
k:=i;
for j:=i+1 to n do
if a&#91;j&#93;<a&#91;k&#93; then k:=j;
if k<>i then
begin t:=a&#91;i&#93;;a&#91;i&#93;:=a&#91;k&#93;;a&#91;k&#93;:=t;end;
end;
write(&#039;output data:&#039;);
for i:= 1 to n do write(a&#91;i&#93;:6);
writeln;
end.