- 442 名前：デフォルトの名無しさん [2007/05/09(水) 16:37:45 ]
- 質問があります。
今大学の研究室でプログラミングをやっているのですが、
みんなでやっても出来ません。
問題は「fl」というファイルに20個の数字がランダムにあって、
その数字を大きい順に並び替えるという問題です。
ちなみに今私が作ったプログラムは
program ex4
implicit real*8(a-h,o-z)
dimension a(100)
do 10 i=1,19
open (10,file='fl.dat')
read(10,*) a(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(i)
pause
stop
end
です。どこが間違っているのかわかる方がいましたら教えて下さい。
