You are viewing a single comment's thread. Return to all comments →
In Cobol
IDENTIFICATION DIVISION. PROGRAM-ID. HourglassSum. DATA DIVISION. WORKING-STORAGE SECTION. 01 Max-Sum PIC S9(9) VALUE 0. 01 Hour-Glass-Sum PIC S9(9). 01 i PIC 9. 01 j PIC 9. PROCEDURE DIVISION USING arr. PERFORM VARYING i FROM 1 BY 1 UNTIL i > LENGTH OF arr - 2 PERFORM VARYING j FROM 1 BY 1 UNTIL j > LENGTH OF arr - 2 COMPUTE Hour-Glass-Sum = arr(i)(j) + arr(i)(j + 1) + arr(i)(j + 2) + arr(i + 1)(j + 1) + arr(i + 2)(j) + arr(i + 2)(j + 1) + arr(i + 2)(j + 2) IF Hour-Glass-Sum GREATER THAN Max-Sum COMPUTE Max-Sum = Hour-Glass-Sum END-IF END-PERFORM END-PERFORM. DISPLAY "Max Hourglass Sum: " Max-Sum. STOP RUN.
Seems like cookies are disabled on this browser, please enable them to open this website
2D Array - DS
You are viewing a single comment's thread. Return to all comments →
In Cobol