Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Find HM
PROGRAM fun IMPLICIT NONE INTEGER::A(5),N,I REAL::S,HM READ*,N READ(*,*)(A(I),I=1,N) S=0 DO I=1,N,1 S=S+(1/REAL(A(I))) END DO HM=N/S PRINT*,'THE HM IS =', HM END PROGRAM fun
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
A_04 POWER METHOD
Practice 2(I)
fucugigugug
divisibility rule
Exercicio 1
Chebyshev practice
Practice
Dynamical Memory Allocation fortran
Ashish.txt
testcompiler.f90
Please log in to post a comment.