如何检查我的数组的每个元素（在循环中）？

Question

我正在使用Fortran进行编程，如果我的数组的所有单个元素都是正数，我想执行语句1，如果它们是部分正执行语句2并且所有都是负执行语句3。

我知道我可能需要一个＆＃39;做＆＃39;循环和＆＃39;如果＆＃39;构建但无法弄清楚如何做到最好。

Answer 1

没有必要为简单的条件使用循环

 if (ALL(A>0)) then
    statement1
 else if (ALL(A<0)) then
    statement3
 else
    statement2
 end if

说明：A>0是一个逻辑值数组，它基于评估原始数组A的每个元素的条件。函数ALL()然后减少这个逻辑数组，如果所有元素都为真，则返回true，否则返回false。

您在标题中请求do循环。如果您确实需要修复特定错误，则必须向我们展示您的努力代码，错误以及所有其他重要细节。