IDENTIFICATION DIVISION.
PROGRAM-ID. SOR1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 I PIC 9(2).
77 J PIC 9(2).
77 TEMP1 PIC 9(2).
77 N PIC 9.
01 NUM.
02 A PIC 9(2) OCCURS 10 TIMES.
PROCEDURE DIVISION.
PARA1.
DISPLAY "ENTER N VALUE".
ACCEPT N.
DISPLAY N.
PERFORM READ-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM CAL-PARA VARYING I FROM 1 BY 1 UNTIL I > N
AFTER J FROM 1 BY 1 UNTIL J > N.
DISPLAY "ASCENDING ORDER IS".
PERFORM DISP-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM CAL-PARA1 VARYING I FROM 1 BY 1 UNTIL I > N
AFTER J FROM 1 BY 1 UNTIL J > N.
DISPLAY "DESCENDING ORDER IS".
PERFORM DISP-PARA1 VARYING I FROM 1 BY 1 UNTIL I > N.
STOP RUN.
READ-PARA.
ACCEPT A(I).
CAL-PARA.
IF A(I) < A(J)
MOVE A(I) TO TEMP1
MOVE A(J) TO A(I)
MOVE TEMP1 TO A(J).
CAL-PARA1.
IF A(I) > A(J)
MOVE A(I) TO TEMP1
MOVE A(J) TO A(I)
MOVE TEMP1 TO A(J).
DISP-PARA.
DISPLAY A(I).
DISP-PARA1.
DISPLAY A(I).
