Red de conocimiento informático - Material del sitio web - ¿Cómo escribir un programa de error cuadrático medio (error cuadrático medio) usando Fortran 90?

¿Cómo escribir un programa de error cuadrático medio (error cuadrático medio) usando Fortran 90?

programa jaja

implícito ninguno

real, asignable::a(:)

entero::n

real::aver

real::var

integer::i

print*, "Ingrese el número total de datos"

leer*, n

asignar(a(n))

hacer i=1, n

imprimir*, "Por favor ingrese el número " , i, "datos"

leer*, a(i)

end do

aver=sum(a)/n

var=sum((a-aver)**2)/n

write(*,'("el error cuadrático medio es", f12.2)')var

fin