//JOB(ERCC07,STEPHENS,T=200,L=10000) //OPTIONS(QUOTES,OPT) //ALGOL 'COMMENT' *************** * * * ALGG015 * * * *************** ; 'BEGIN' 'PROCEDURE' CPUTIM(T); 'REAL' T; T:=CPUTIME; 'INTEGER' I,J,K,M,N; 'REAL' T; 'INTEGER''ARRAY' A[1:2000]; CPUTIM(T); N:=2000; 'FOR'I:=1'STEP'1'UNTIL'N'DO' A[I]:=I; 'FOR'I:=1'STEP'1'UNTIL'N-1'DO' 'BEGIN' K:=I; M:=A[I]; 'FOR'J:=I+1'STEP'1'UNTIL'N'DO' 'IF' A[J] >M'THEN' 'BEGIN' K:=J; M:=A[J]; 'END'; A[K]:=A[I]; A[I]:=M; 'END'; CPUTIM(T); OUTPUT(T); 'END' //RUN