F90: O uso do DIMENSION

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	INTEGER :: i
	INTEGER, DIMENSION(10) :: a
	WRITE (*,*) "Digite 10 números"
	READ (*,*) (a(i),i=1,10)
	WRITE (*,*) "Seus 10 numeros foram:"
	WRITE (*,"(I3)") (a(i),i=1,10)
END PROGRAM aula