F90: O uso do DIMENSION

From AdonaiMedrado.Pro.Br
Revision as of 00:30, 28 October 2008 by Adonaimedrado (Talk | contribs) (New page: <code lang="fortran"> 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 (*,"(...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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