怎么找到数组中最大的两个数呢

lon91ong

如题，最大的一个很容易找到，maxval()和maxloc()分别能找到值和index
最大的两个就不知道有什么好办法找到了，如下面的例子：

1. !main.f90
   
2. program main
   
3.     implicit none
   
4.     real, dimension(1:6) :: a = (/ 21.0, 12.0,33.0, 24.0, 33.0, 16.0 /)
   
5.     Print *, maxloc(a),maxval(a)
   
6.     stop
   
7. end program

复制代码

结果可以得到： 3，33
怎么能找到第二个最大的： 5，33 呢？

要假设不清楚数组数值的情况下，也就是说最大值可能只有一个，也可能有多个相同的值

小傅之追梦

第一次找到最大的之后，把原数组中的最大值换成一个特别小的数，然后再用一次上面的函数，不就可以找到次大的了吗？

lon91ong

小傅之追梦 发表于 2017-3-17 09:36
第一次找到最大的之后，把原数组中的最大值换成一个特别小的数，然后再用一次上面的函数，不就可以找到次大 ...

想要不改动数组的值的方法不是有个“掩码（mask）”参数吗，感觉应该可以利用起来