回 帖 发 新 帖 刷新版面

主题:菜鸟问题:如何利用count()找出数组中某元素个数

比如A=[1 1 1 2 2 2],我需要找出其中1的个数怎么办?能用count()吗?

回复列表 (共2个回复)

沙发

write(*,*)count(A==1)

板凳

如果 A 是实数,而不是整数。那么最好是类似这样:

Real :: a(5) = (/1.,2.,1.,3.,1./)
write(*,*)count( abs(A-1.0) < 0.001 )

我来回复

您尚未登录,请登录后再回复。点此登录或注册