¿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