Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Sort-an-integer-array/COBOL/sort-an-integer-array.cob
+++ b/Task/Sort-an-integer-array/COBOL/sort-an-integer-array.cob
@ -0,0 +1,22 @@
+       PROGRAM-ID. sort-ints.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  array-area             VALUE "54321".
+           03  array              PIC 9 OCCURS 5 TIMES.
+       01  i                      PIC 9.
+
+       PROCEDURE DIVISION.
+       main-line.
+           PERFORM display-array
+           SORT array ASCENDING array
+           PERFORM display-array
+
+           GOBACK
+           .
+       display-array.
+           PERFORM VARYING i FROM 1 BY 1 UNTIL 5 < i
+               DISPLAY array (i) " " NO ADVANCING
+           END-PERFORM
+           DISPLAY SPACE
+           .