Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Rand
REAL X(10000) N=5000 DO I=1,N X(I)=RAND() END DO S=0 DO I=1,N S=S+X(I) S1=S1+X(I)*X(I) END DO S1=S1/N S=S/N D=SQRT(S1-S*S) WRITE(*,*)'MEAN IS',S,D END
run
|
edit
|
history
|
help
0
A_03 practice 2(ii)
Find HM
Y
euler-cromer
Currency conversion
Subroutine problem
euler-cromer
Exercise
Dynamical Memory Allocation fortran
points on,inside circle