DD’³· N·.1 òÌ700C¼ ¼ òÌ   à  àÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,íæÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC D’³· 1 C C F·¸—’°œ’¤ P·—¡³³ ’¢’¥—– ’¦°’ ¢¥ª»¸¸¦—’ Z¡˜¸’°ª·¸—’, œ¦’ ¦° ’¦° C A¡½ ¡š—’¸’—– £¦œ. D¦’¤’ Z¡˜¸’°ª·¸—’ £¦œ ¡°¤Ÿ˜¸¦’®’°œ ¤·–¦’– C ¡¥¤—’—’š’° : C DIMENSION IDATA(100) DO 10 I=1,100 10 IDATA(I)=IRND(900)+100 C C P¦°–’ ·° : WRITE(1.A1) C C A¥¤œ¥Ÿ© œ’¤ ¥°¤·–¦’–’° F’¸œ’¤ : WRITE("¥°¤·–¦’–’¤ F’¸œ :",//) DO 20 I=1,100 20 WRITE(IDATA(I).I6) WRITE(//) C C S·–¦’¥°— : DO 30 I=1,100 MIN=10000 DO 40 J=I,100 IF (MIN-IDATA(J)) 40,, MIN=IDATA(J) K=J 40 CONTINUE IDATA(K)=IDATA(I) IDATA(I)=MIN 30 CONTINUE C C A¥¤œ¥Ÿ© œ’¤ ¤·–¦’–’° F’¸œ’¤ : WRITE("¤·–¦’–’¤ F’¸œ :",//) DO 50 I=1,100 50 WRITE(IDATA(I).I6) WRITE(/) C C P¦°–’ ·ªª : WRITE(0.A1) C C E°œ’ END