Soma A+B

PROGRAM AULA

INTEGER N,A(100),B(100),C(100),i

READ*, N

do i=1,N,1

READ*, A(i)

ENDDO

do i=1,N,1

READ*,B(i)

ENDDO

do i=1,N,1

C(i) =A(i)+B(i)

PRINT*,C(i)

ENDDO

END