IDENTIFICATION DIVISION. PROGRAM-ID. MonProg. ENVIRONMENT DIVISION. * espace des données DATA DIVISION. WORKING-STORAGE SECTION. * PIC 9 = numérique (COMP = stockage binaire), PIC X = alphanumérique 01 I PIC 99. 01 RESTE PIC 9(6). 01 TABLEAU PIC 9(6) COMP OCCURS 12. 01 SOMME PIC 9(8) VALUE 0. 01 MOYENNE PIC 9(8)V99. * espace des traitements PROCEDURE DIVISION. DEBUT SECTION. PERFORM RAZ. PERFORM CALCULER STOP RUN. RAZ SECTION. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 12 COMPUTE RESTE = FUNCTION MOD (I, 2) IF RESTE = 0 THEN MOVE I TO TAB(I) ELSE COMPUTE TAB(I) ROUNDED = I * 2 ON SIZE ERROR MOVE 0 TO TAB(I) END-IF MOVE 0 TO TAB(I) END-PERFORM. MOYENNE SECTION. MOVE 0 TO SOMME. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 12 ADD TAB (I) TO SOMME. END-PERFORM. DIVIDE SOMME INTO 12 GIVING MOYENNE.