В массиве из 10 элементов найти произведение чисел, которые больше 5

stack segment
dw 100 dup(?)
stack ends

data segment
a db 22
n dw 10
p db ?


; Buffer db 22
Entered db (?)
String db 11 dup (?)


data ends

code segment
assume cs:code, ds:data, ss:stack

start proc far
mov ax,data
mov ds,ax
mov ax,0
mov si,0
mov cx,n


;ввод
mov si,offset a ; аддрес буфера
mov ah,0ah
int 21h ; принимаем строку


xor bx,bx ;Запишем '$' в конце строки.
mov bl,Entered
mov String[bx],'$'

mov ah,2 ;Перейдем на другую строку.
mov dl,0dh
int 21h
mov dl,0ah
int 21h



m1: cmp a[si],5
jnl m2
inc si
cmp si,n
je m3
loop m1


m2: add al,a[si]
inc si
cmp si,n
je m3
loop m1


m3: mov p,al


; вывод
mov si,offset p
mov ah,9
int 21h

mov ah,10h ;Аникей
int 16h

quit:
mov ax, 4c00h
int 21h



RET
start endp
code ends
end start