有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序運行的結(jié)果為：（）

有程序：INTEGERPP=0DO10I=0，10，3DO10J=5，100，20DO10K=-10，-5，-110P=P+1WRITE（*，*）PEND此程序的運行結(jié)果是：（）

有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序執(zhí)行后的輸出結(jié)果為：（）

有程序：DATAI，M，N／2，1，4／10M=M*II=I+1IF（I．GT．N）GOT020GOTO1020WRITE（*，*）MEND執(zhí)行此程序后，輸出結(jié)果為：（）

有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的運行結(jié)果是：（）

有程序：DIMENSIONA（4，3）DATAA／3*-1．0，3*-2．0，3*-3．0，3*-4．0／S=0．0DO10K=1，4D=ABS（A（K，1））DO20J=2，3IF（ABS（A（K，J））．GT．D）D=ABS（A（K，J））20CONTINUES=S+D10CONTINUEWRITE（*，*）SEND此程序執(zhí)行后的結(jié)果為：（）

有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的運行結(jié)果是：（）

有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序運行的結(jié)果為：（）

有程序：LOGICALA，B，C，DINTEGERX，YDATAX，Y，A，B／1，-1，2*．FALSE．／C=．NOT．A．AND（B．OR．XGE．Y）D=．NOT．（A．AND．B．OR、X．GE．Y）WRITE（*，*）C，DEND上面程序的運行結(jié)果是：（）

有程序：M=2N=MD010I=1，N+1，NN=N*NM=M*N10CONTINUEWRITE（*，*）MEND此程序的運行結(jié)果是：（）