fortran编程问题求助

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:25:18
如果一个数组中有重复数据出现，如：1，2，3，4，1
怎么能去掉重复数据？使输出结果为：1,2,3,4
因为悬赏分用光了，真对不起。不过比较着急，希望高手指点一下！

program thedif
implicit none
integer::a(10),b(10)
integer::i,j,k
!下面假设一些数据
do i=1,10
a(i)=i
end do
a(3)=2 !相同的数
write(*,*) "原来的数据为：",a
!---------------
b(1)=a(1)
k=1
loop1:do i=2,10
loop2:do j=1,i-1
if(a(i)==a(j)) cycle loop1
end do loop2
k=k+1
b(k)=a(i)
end do loop1

print*,k,"个不同的数存放在数组b中,分别是："
do i=1,k
write(*,*) b(i)
end do
write(*,*)"回车退出！"
pause
end program thedif

遍历比较