Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DIMENSION S(10)
- SUM=0.0
- DO 20 I=1,10
- READ(*,*)S(I)
- SUM=SUM+S(I)
- 20 CONTINUE
- AVE=SUM/10
- K=1
- N=1
- DO 30 I=1,10
- IF(S(I).GE.85)K=K+1
- IF(S(I).LT.50)N=N+1
- 30 CONTINUE
- WRITE(*,*) AVE,K,N
- PAUSE
- STOP
- END
Advertisement
Add Comment
Please, Sign In to add comment
