1 real x(8) 2 do 10 i=1,8 3 10 x(i) = i 4 write(*,1000) (i,x(i),i=1,8) 5 1000 format (2("x(",i,")= ",f3.0," feet, "), "ta da") 6 end 7