DIMEN
!Program name: DIMEN
!
Dimension and data of arrays A, B, C, D
integer, dimension(6)
:: A,B,C,D
A=(/1,2,3,4,5,6/)
B=2*A
Data D/7,8,9,10,11,12/
Print *, A
Print *, B
Print *, D
Do i=1,6
C=A+i
Print *, C
end do
stop
!Program name: DIMEN
!
Dimension and data of arrays A, B, C, D
integer, dimension(6)
:: A,B,C,D
A=(/1,2,3,4,5,6/)
B=2*A
Data D/7,8,9,10,11,12/
Print *, A
Print *, B
Print *, D
Do i=1,6
C=A+i
Print *, C
end do
stop
Comentários
Postar um comentário