RosettaCodeData/Task/Averages-Root-mean-square/Fortran/averages-root-mean-square.f
2023-07-01 13:44:08 -04:00

1 line
34 B
Fortran

print *,sqrt( sum(x**2)/size(x) )