谁伴我闯荡:
★下面是f95程序ProgrammAInimplicitnoneinteger,parameter::ip_Max=1000integer::i,j,kinteger::i_readstate,i_datanumberinteger::i_tempinteger::i_data(ip_Max),i_same(2,ip_Max)open(1,file="1.txt")read(1,*,iostat=i_readstate)i_dataclose(1)doi=1,ip_Max-1if((i_data....