QUESTÃO 2 - LISTA 1 SEGUNDO ESTÁGIO

PROGRAM CALCULAR
!LOCAIS DE MEMÓRIA
REAL, DIMENSION(7):: X
REAL SX, PX,MAR, MGEO
!ENTRADA DE DADOS
Data X/3,5,6,6,7,10,12/
!CÁLCULOS
SX=0
DO I = 1, 7, 1
SX = SX + X(I)
END DO
PX=1
DO I = 1, 7, 1
PX = PX*X(I)
END DO
MAR=SX/7
MGEO=PX**(1./7)
!SAÍDA DE DADOS
WRITE (*,*) 'O VALOR DE X='
DO I=1,7,1
	WRITE (*,*) 'X',I,'=',X(I)
END DO
WRITE (*,*) 'O VALOR DE SX', SX
WRITE (*,*) 'O VALOR DE PX=', PX
WRITE (*,*) 'O VALOR DE MAR=', MAR
WRITE (*,*) 'O VALOR DE MGEO=', MGEO
END PROGRAM