DOWHILE

PROGRAM AULA

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

PRINT*,"ENTRE COM O VALOR DE N"

READ*,N

i=1

DO WHILE (i<=N)

PRINT*,"ENTRE COM O VALOR DE A"

READ*,A(i)

PRINT*,"ENTRE COM O VALOR DE B"

READ*,B(i)

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

PRINT*,C(i)

i=i+1

ENDDO

END