新手求教：关于数组的一个问题

楚香饭

最重要的是 Fortran 不支持连续判断 a<b<c，必须写成 a<b.and.b<c
另外，也给了一些其他的修改意见。

[Fortran] 纯文本查看 复制代码

Program yatou
  Implicit None
  Integer :: b(10) !10个就够了
  Integer :: i, o = 0, p = 0, q = 0, r = 0, s = 0 !建议定义时给初值
  do i=1,10
    Read(*,*) b(i)
  end do!建议用 End Do
  !b = [ 68, 44, 5, 5, 5, 5, 6, 6, 7, 78 ]

  Do i = 1, 10 
    If (60>b(i) .And. b(i)>=0) Then !//不能连续判断
      o = o + 1
    End If
    If (59<b(i) .And. b(i)<70) Then
      p = p + 1
    End If
    If (69<b(i) .And. b(i)<80) Then
      q = q + 1
    End If
    If (79<b(i) .And. b(i)<90) Then
      r = r + 1
    End If
    If (89<b(i) .And. b(i)<=100) Then !最好是小于等于100
      s = s + 1
    End If
  End Do!建议用 End Do
  Print *, '不及格人数', o
  Print *, '60——69', p
  Print *, '70——79', q
  Print *, '80——89', r
  Print *, '90——100', s
End Program yatou