Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- INCLUDE IO.H
- CR EQU 0DH
- LF EQU 0AH
- DATA SEGMENT
- X DW 40 DUP (?)
- C DW ?
- STRING DB 40 DUP (?)
- PROMPT1 DB 'ENTER THE NUMBER OF VALUES'
- DB CR,LF,0
- PROMPT2 DB 'ENTER THE VALUES'
- DB CR,LF,0
- L2 DB CR,LF,'THE SUM IS :'
- SUM DB 8 DUP (?)
- DB CR,LF,0
- L1 DB CR,LF,'THE AVERAGE IS :'
- AVG DB 6 DUP (?)
- DB CR,LF,0
- L3 DB CR,LF,'NUMBER GREATER THAN AVERAGE IS :'
- VAL DB 3 DUP (?)
- DB CR,LF,0
- DATA ENDS
- CODE SEGMENT
- ASSUME CS:code,DS:data
- START: MOV AX,SEG DATA
- MOV DS,AX
- PROMPT: OUTPUT PROMPT1
- INPUTS STRING,40
- ATOI STRING
- MOV C,AX
- MOV BX,C
- OUTPUT PROMPT2
- MOV SI,OFFSET X
- AGAIN: INPUTS STRING,40
- ATOI STRING
- MOV [SI],AX
- INC SI
- INC SI
- DEC BX
- JNZ AGAIN
- MOV BX,C
- MOV SI, OFFSET X
- XOR DX,DX
- SAGN:ADD DX,[SI]
- INC SI
- INC SI
- DEC BX
- JNZ SAGN
- ITOA SUM,DX
- OUTPUT L2
- MOV AX,DX
- CWD
- DIV C
- ITOA AVG,AX
- OUTPUT L1
- MOV BX,C
- MOV SI,OFFSET X
- XOR DX,DX
- SEARCH:MOV DX,[SI]
- CMP DX,AX
- JG PRINT
- INC SI
- INC SI
- DEC BX
- JNZ SEARCH
- JZ LAST
- XOR CX,CX
- PRINT:MOV CX,[SI]
- ITOA VAL,CX
- OUTPUT L3
- INC SI
- INC SI
- DEC BX
- JNZ SEARCH
- LAST:
- QUIT: MOV AL,0
- MOV AH,4CH
- INT 21H
- CODE ENDS
- END START
- OUTPUT:
- ENTER THE NUMBER OF VALUES
- 5
- ENTER THE VALUES
- 12
- 15
- 20
- 5
- 6
- THE SUM IS : 58
- THE AVERAGE IS : 11
- NUMBER GREATER THAN AVERAGE IS : 12
- NUMBER GREATER THAN AVERAGE IS : 15
- NUMBER GREATER THAN AVERAGE IS : 20
Advertisement
Add Comment
Please, Sign In to add comment