SommeVecVecSEQ.f90

program Somme
implicit none

integer :: A(10),B(10),C(10)
integer :: i

do i=1,10
  A(i) = i
  B(i) = 10 - i
enddo

write ( *, * ) 'Les deux vecteurs :'

write (*,*) 'A = ',(A(i),i=1,10)
write (*,*) 'B = ',(B(i),i=1,10)

do i=1,10
  C(i) = A(i) + B(i)
enddo

write ( *, * ) 'Le vecteur somme :'
write (*,*) 'C = ',(C(i),i=1,10)

end program