您所在位置：主题：关于排序的一个简单程序
龙之恋歌
[专家分：0] 发布于 2012-04-11 10:53:00
program main
implicit none
integer::i,j
integer,parameter::size=10
integer::a(size)=(/5,3,6,4,8,7,1,9,2,10/)
do i=1,size-1
do j=i+1,size
if(a(i)>a(j)) swap(a(i),a(j))
end do
end do
write(*,"(10i4)") a
end
感觉没什么错呀 可是就是运行不了，求达人指点！！
implicit none
integer::i,j
integer,parameter::size=10
integer::a(size)=(/5,3,6,4,8,7,1,9,2,10/)
do i=1,size-1
do j=i+1,size
if(a(i)>a(j)) swap(a(i),a(j))
end do
end do
write(*,"(10i4)") a
end
感觉没什么错呀 可是就是运行不了，求达人指点！！