Ceci est une ancienne révision du document !
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