(来学网)有程序：INTEGER A(10)
DATA A／1，2，3，4，5，6，7，8，9，10／
DO 10 K=1．10
M=A(K)+1
A(K)=A(10-K+1)+1
A(10-K+1)=M
10 CONTINUE
WRITE(*，*)A(5)
END
此程序的运行结果是：