编程求给定输入正实数值中的最大和最小的数 要求：随意给出数字进行比较，但不能少于5个数以上

思路是:
建立线性链表(如果数据没有最大限制)
type p=^node;
node=record
data:real;
next:p;
end;
var a{用来储存},b{用来读入}:p;
读入数据;(具体情况未给出,故略)
比较;
min,max:integer;
...
max:=minreal;{代表实数最小值}
min:=maxreal;
然后逐个搜索比较,比max大则替换,比min小则替换