廣義表GL=(aa …an)其中 ak(k=n)或是單個數據元素（原子）或仍然是個廣義表給定如下有關廣義表的類型定義
TYPE tagtype=;
glist=^gnode;
gnode=RECORD
link:glist; {link 域指向下一個結點}
CASE tag:tagtype OF ｛tag= 表示原子結點｝
: (data :integer);
:(sublist: glist)
END;
編寫一個過程或函數計算一個廣義表的所有原子結點數據域之和例如對廣義表(()(）) 數據域之和為【廈門大學 四 （分）】
數組 H[ ] 中存放著個大小不同的正整數;
（） 選擇一分類算法使能最快地得到其中個最大的數簡要說明理由
（） 編寫一程序seek() 執行該程序時在命令行中提供二個參數
seek a n<enter> 表示需打印H[ ]中n個最大數
seek I n<enter> 表示需打印H[ ]中n個最小數【浙江大學 八 (分)】
[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
From:http://tw.wingwit.com/Article/program/sjjg/201311/22764.html
