!     Last change:  JIJ  27 Aug 2007    3:52 pm
program sumadevectores

implicit none
REAL,DIMENSION(10):: A,B,C
INTEGER:: i

DO i=1, 10

        WRITE(*,*)" Dame el valor de A",i
        READ(*,*) A(i)
END DO


DO i=1, 10

        WRITE(*,*)" Dame el valor de B",i
        READ(*,*) B(i)
END DO

WRITE(*,*)" El vector es"
do i=1, 10

  C(i)= A(i) + B(i)
  WRITE(*,*) C(i)
end do


end program