输入用read,输入列表直接给一个数组求最大值用Max,参数可以用数组
real a(10)read(*,*) awrite(*,*) MaxVal( a )end搞定
read(*,*) AAm=Ado i=2,10 read(*,*) A if (A>Am) Am=Aenddowrite(*,*) Amend
一趟的选择排序!