;Сорокин
dseg segment para public 'data'
    n1 dw 6,2,1,3,1,1 
    n2 dw 2,1,2,1,4,3
    n3 dw 0,0,0,0,0,0
dseg ends
sseg segment para stack 'stack'
 db 256 dup (0)
sseg ends
cseg segment para public 'code'
main proc near
assume cs:cseg,ds:dseg,ss:sseg 

    add bx, n1
    add dx, n2
    add di, n3
    mov cx, 6
    push ds
    pop es
r:  
    mov ax, bx
    add ax, dx
    stosw
    add bx, 2
    add dx, 2
loop r

mov ax,4C00H
int 21H
main endp
cseg ends
end main

dseg segment para public 'data'
    x dw 6,2,1,3 
    y dw 2,1,2,1
    z dw 0,0,0,0
dseg ends
sseg segment para stack 'stack'
 db 256 dup (0)
sseg ends
cseg segment para public 'code'
main proc near
assume cs:cseg,ds:dseg,ss:sseg 


start: mov ax,dseg
mov ds,ax
mov es,ax
lea si, x
lea bx,y
lea di,z
mov cx,4
M1: lodsb; получить в регистр AL элемент из массива X
add al,[bx]; сложить с элементом из массива Y
stosb ; отправить сумму в массив Z
inc bx
loop M1

mov ax,4C00H
int 21H
main endp
cseg ends
end main