!     Last change:  JIJ  27 Aug 2007    4:28 pm
program promedioalritmeicodeunvector

implicit none
REAL,DIMENSION(25)::A
REAL:: suma, promedio
INTEGER i

DO i=1, 25

WRITE(*,*)" Damen el valor de A",i
READ(*,*) A(i)

END DO
Suma= 0
do i=0, 25

       

       suma= suma + A(i)

end do


promedio= suma/25

WRITE(*,*) " EL valor del promedio del vector es", promedio

end program