INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    j   dw  0
    two dw  2
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
    mov bx,0
l1:
    push cx
    mov cx,i
    sub cx,1
    cmp cx,0
    jle l3
    mov si,0
    mov ax,n                ;;ниже побочной, удаляем i-1 элемент, идем с n-i+1 элемента
    sub ax,i
    inc ax
    mov dx,0
    mul two
    mov si,ax
l2:
    mov a[bx][si],0
    add si,2
    loop l2
l3: inc i
    pop cx
    add bx,n2
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN



===

INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    j   dw  0
    two dw 2
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
    mov bx,0
l1:
    push cx
    mov cx,n
    sub cx,i
    cmp cx,0
    jle l3
    mov dx,0            ;;выше главной, удаляем n-i элементов , идем с iго элемента
    mov ax,i
    mul two
    mov si,ax
l2:
    mov a[bx][si],0
    add si,2
    loop l2
l3: inc i
    pop cx
    add bx,n2
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN



===

INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    j   dw  0
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
    mov bx,0
l1:
    push cx
    mov cx,n
    sub cx,i
    cmp cx,0
    jle l3                          ;выше побочной, удаляем n-i элементов на каждой строке, идем с нуля
    mov si,0
l2:
    mov a[bx][si],0
    add si,2
    loop l2
l3: inc i
    pop cx
    add bx,n2
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN


===

INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    j   dw  0
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
    mov bx,0
l1:
    push cx
    mov cx,i            ;;ниже главной , на каждой строке удаляем элементов соотв ее номеру-1
    dec cx
    cmp cx,0
    jle l3
    mov si,0
l2:
    mov a[bx][si],0         ;;идем от нуля
    add si,2
    loop l2
l3: inc i
    pop cx
    add bx,n2
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN