Run Code
|
API
|
Code Wall
|
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
my_first_code
A_02 GUASSIAN_ELIMINATION METHOD
Summation of 1 to 100 square integer namber
Title
Pivot 2
A_04 POWER METHOD
Practice 4(I) recently
A_01 NEWTON_R_M(B(I))
Hello / fortran
Characteristics polynomial