program vectores implicit none real, allocatable :: U(:), V(:) real :: x real :: prod_escalar integer :: n integer :: i,j integer :: factorial write(*,*) "Introduzca la dimension de los vectores" read(*,*) n write(*,*) "Introduzca el valor de x" read(*,*) x allocate( U(n), V(n) ) do i = 1, n V(i) = x ** i enddo factorial = 1 do i = 1, n ! factorial = 1 ! do j = 1, i ! factorial = factorial * j ! enddo factorial = factorial * i U(i) = 1.0 / factorial enddo prod_escalar = 0.0 do i = 1, n prod_escalar = prod_escalar + U(i) * V(i) enddo end program