Olá, pessoal!
Apenas compartilhando meu código, pois realizei meu exercício utilizando o DIVIDE ao invés do COMPUTE.
IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULAMEDIA.
*AUTHOR: BRUNO DE JESUS PINTO
*OBJETIVO: CALCULAR A MÉDIA ARITMÉTICA DE VENDAS
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WS-VENDA-UM PIC 9(05)V99 VALUE ZEROS.
77 WS-VENDA-DOIS PIC 9(05)V99 VALUE ZEROS.
77 WS-RESULTADO PIC 9(06)V99 VALUE ZEROS.
77 WS-RESULTADO-ED PIC $ZZ.ZZZ,99 VALUE ZEROS.
PROCEDURE DIVISION.
DISPLAY 'ENTRE COM A 1a VENDA:'
ACCEPT WS-VENDA-UM FROM CONSOLE.
DISPLAY 'ENTRE COM A 2a VENDA:'
ACCEPT WS-VENDA-DOIS FROM CONSOLE.
DISPLAY '=============================='
ADD WS-VENDA-UM WS-VENDA-DOIS TO WS-RESULTADO.
DIVIDE WS-RESULTADO BY 2 GIVING WS-RESULTADO-ED.
DISPLAY 'RESULTADO: ' WS-RESULTADO-ED.
STOP RUN.Tem algum problema ao utilizá-lo?
Obrigado!
