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).
Strange "water hack" burns 2 lbs in your sleep
ReplyDeleteOver 160,000 women and men are using a simple and SECRET "liquids hack" to drop 1-2lbs each night in their sleep.
It is very simple and it works on everybody.
Here's how to do it yourself:
1) Go get a clear glass and fill it up half the way
2) Proceed to use this amazing HACK
and you'll become 1-2lbs thinner as soon as tomorrow!
If you're looking to lose kilograms then you absolutely need to get on this brand new custom keto plan.
ReplyDeleteTo produce this service, certified nutritionists, fitness couches, and top chefs united to produce keto meal plans that are productive, decent, money-efficient, and delightful.
From their launch in 2019, 1000's of individuals have already remodeled their body and health with the benefits a professional keto plan can offer.
Speaking of benefits: in this link, you'll discover 8 scientifically-confirmed ones provided by the keto plan.
Ok...
ReplyDeleteThis might sound kind of creepy, and maybe even kind of "strange"
BUT what if you could just hit "PLAY" to LISTEN to a short, "musical tone"...
And INSTANTLY bring MORE MONEY to your life?
And I'm really talking about hundreds... even thousands of dollars!
Sound too EASY? Think something like this is not for real??
Well then, Let me tell you the news..
Many times the greatest miracles in life are also the EASIEST!
In fact, I will provide you with PROOF by allowing you to PLAY a real-life "magical money-magnet tone" I developed...
(And COMPLETELY RISK FREE).
You just press "PLAY" and watch how money starts piling up around you. starting so fast, you will be surprised.
CLICK here to PLAY this wonderful "Miracle Money-Magnet TONE" - it's my gift to you!