最重要的是 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 |