ВУЗ:
Составители:
29
П р и л о ж е н и е 1
; Программа поиска максимального элемента массива
JMP START
ARRAY DB 10 DUP (0)
STRING1 DB 13,10,'ВВЕДИ 10 ЭЛЕМЕНТОВ : $'
STRING2 DB 13,10,'МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ : $'
REZ DB 13,10,'НАЖМИ ЛЮБУЮ КЛАВИШУ... : $'
START: MOV DX,OFFSET STRING1
MOV AH,09
INT 21H
MOV SI,OFFSET ARRAY
MOV CX,10
M1: MOV AH,01
INT 21H
MOV SI,[AL]
INC SI
LOOP M1
MOV SI,OFFSET ARRAY
MOV CX,10
MOV BL,[SI]
M2: MOV AL,SI
CMP BL,AL
GDE M3
MOV BL,AL
M3: INC SI
LOOP M2
MOV BYTE PTR REZ,BL
MOV DX,OFFSET STRING2
MOV AH,09
INT 21H
MOV AH,01
INT 21H
INT 20H
END
