F90: Vetor de tamanho indeterminado

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	INTEGER :: i, quantidade
	INTEGER, DIMENSION(:),ALLOCATABLE :: a
	WRITE (*,*) "Quantos números deseja digitar?"
	READ (*,*) quantidade;	
	IF (quantidade > 999) THEN
		WRITE (*,*) "Quantidade muito grande, digite um número até 999"
	ELSE
		ALLOCATE(a(1:quantidade))
		WRITE (*,"(A,I3,A)") "Digite",quantidade," números"
		READ (*,*) (a(i),i=1,quantidade)
		WRITE (*,*) "Seus,",quantidade,"números foram:"
		WRITE (*,"(I3.3)") (a(i),i=1,quantidade)
		DEALLOCATE(a)
	END IF
END PROGRAM aula