Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
IDENTIFICATION DIVISION.
PROGRAM-ID. ArraySum.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMBERS.
05 NUM PIC 9(2) OCCURS 5 TIMES VALUE 1 2 3 4 5.
01 SUM PIC 9(3) VALUE 0.
01 INDEX PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
PERFORM VARYING INDEX FROM 1 BY 1 UNTIL INDEX > 5
ADD NUM (INDEX) TO SUM
END-PERFORM
DISPLAY 'Sum: ' SUM
STOP RUN.Coding works best on desktop or with an external keyboard.