fork download
copy 
  1. Subroutine result(a,n,Sum,Avg,Amin,Amax)
  2. Dimension a(n)
  3. Amin=a(1)
  4. Amax=a(1)
  5. Do i =1,n
  6. If(Amin.lt.a(i))Amin=a(1)
  7. If(Amax.gt.a(i))Amax=a(1)
  8. Enddo
  9. Return
  10. End
  11. Parameter(n=5)
  12. Dimension a(n)
  13. Read*,(a(i),i=1,n)
  14. Call result(a,n,Sum,Avg,Amin,Amax)
  15. Sum=0.0
  16. Do i =1,n
  17. Sum=Sum+a(i)
  18. Avg=Sum/real(n)
  19. Enddo
  20. Print*,'Amin=',Amin
  21. Print*,'Amax=',Amax
  22. Print*,'Avg=',Avg
  23. stop
  24. end
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
5 6 7 8 9
stdout
copy 
 Amin=   5.00000000    
 Amax=   5.00000000    
 Avg=   7.00000000
https://ideone.com/UgfxFi
language:
Fortran (gfortran 8.3)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!