(来学网)有程序：INTEGER A(3)
DATA A／3*1／
N=2
DO 10 I=1．N
DO 10 J=1，N
10 A(I)=A(J)+1
WRITE(*，*)A(N)
END
此程序的运行结果为：