- 446 名前：デフォルトの名無しさん [2007/05/09(水) 19:05:54 ]
- あと今の状態の文は以下のとおりです。
program ex4
implicit real*8(a-h,o-z)
dimension a(100)
open (10,file='fl.dat')
read(10,*) a(i)
do 10 i=1,19
k=i
do 20 j=i+1,20
if(a(k).gt.a(j))k=j
20 continue
b=a(i)
a(i)=a(k)
a(k)=b
10 continue
open(11,file='ans.dat')
write(11,*) a
pause
stop
end
