NAME MULTIPL
;...........................................
Data SEGMENT
Massiv DW 100 DUP(?)
R DB 100 DUP(?)
Data ENDS
;...........................................
Code SEGMENT
ASSUME CS:Code,DS:Data
Start:
MOV AX,Data
MOV DS,AX
MOV BP,256h
LEA DI,R
LEA SI,Massiv
MOV CX,length Massiv
M: mov AX,[SI]
CWD
IDIV BP
MOV [SI],AX
MOV [DI],DX
ADD SI,type Massiv
ADD DI,type R
LOOP M
Code ENDS
END Start