Найти количество положительных чисел (тип данных: слово)

[Владимир Павлов]

Найти количество положительных чисел (тип данных: слово)

[airyashov]

mov cx,N
mov si,Mass
mov ax,0
@1:
cmp word ptr [si],0
jle @2
inc ax
@2:
add si,2
loop @1

[Alar]

из названия раздела понятно что это ассемблер. зачем же так тему называть?

[Mikl___]

Владимир Павлов
можно так

    mov bx,0; счетчик отрицательных чисел
    mov si,offset Mass
    mov cx,N; общее количество чисел
a1:  lodsw; mov ax,[si] si:=si+2
    cwd; if ax<0 then dx:=-1 else dx:=0
    add bx,dx; if ax<0 then bx:=bx-1 else bx:=bx
    loop a1; в начало цикла
    add bx,N; общее количество чисел минус количество отрицательных равно количеству положительных