VECTOR
!Program name: VECTOR
!Building
a 5-dimensional vector and sum of its elements
REAL*8 X(5),sum
Print *,'Input the five scalar elements of
the 5-D vector:'
Read
*,X
sum=0.
do 1 I=1,5
sum=sum+X(I)
1 continue
Print *,'The sum of the five elements of 5-D
vector is: ',sum
stop
Comentários
Postar um comentário