;421
;все элементы исх. массива больше нуля располагаются в    │
 ;порядке убывания от конца исходного массива, остальные   │
  ;элементы записываются с начала массива в естественном  порядке;

  ;больше среднего арифметического наибольшего и последнего элемента исходного массива.

;Базовая             │     Индексная

.model small
.386

.data
    start_array dd 1,-13,7,4,-5,2,8,8,-9,-10; начальный массив размерностью слово с выделением памяти под 10 элементов
    mas dd 6 dup (?); массив для положительны элементов
    result_array dd 6 dup (?) ; конечный массив размерностью слово с выделением памяти под 10 элементов
    k word ?
    index word ?
    tmp word ?
    r word ?

.code
.startup
    mov bx, 0 ; i=0
    mov ax, 0 ; 0
    mov cx, 10 ;n=10
    mov si, 0 ; k = 0;

    begin1:
    mov ebp,[start_array+bx]
    cmp bp,0;
    Jl  end_begin3 ; if (mas[i]>0)
            mov edx,start_array[bx]
            mov mas[si],edx ; temp[k]=mas[i]
            add si,4 ;k++
        end_begin3:
        add bx, 4; i++
    loop begin1


    mov bx, 0 ; i=0
    mov ax, 0 ; 0
    mov cx, 10 ;n=10
    mov si, 0 ; k = 0;

    begin:
    mov ebp,[start_array+bx]
    cmp ebp,0;
    Jg  end_begin2 ; if (mas[i]<0)
            mov edx,start_array[bx]
            mov start_array[si],edx ; temp[k]=mas[i]
            add si,4 ;k++
        end_begin2:
        add bx, 4; i++
    loop begin

    mov edx, 0  ; j=0
    mov cx, 10; n=10
    mov bx, 0 ; i=0

    mov bp,0;

    meow:
        mov edx, [mas+bx];min = mas[i]
        mov ebp, ebx; j = i+1
        mov index, bx
        meow2:
            add bp,4; j++
            mov esi,[mas+bp]
            cmp esi,edx ;if (mas[j]>=min)
            JGE end_meow3
                mov edx,[mas+bp]; min = mas[j]
                mov index, bp ;index = j
                end_meow3:
            cmp bp, 20   ;j<n
            JL meow2
    mov esi,[mas+bx]; tmp = mas[i]
    mov [mas+bx], edx ; mas [i] = min
    mov r,bx
    mov bx, index
    mov [mas + bx ],esi ;
    mov bx,r
    add bx,4; i++
    loop meow


    mov bx,  36; i=8
    mov si , 20
    mov cx , 12
    xor dx,dx
    array:
    mov edx,[mas+si]
    mov [start_array+bx] , edx
    sub bx,4; i--
    sub si,4
    loop array

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;конец сортировки



.exit
end