5_1asm

.686
.model flat
public _srednia_harm
.data
jeden       dd      +1.0
.code
_srednia_harm PROC
    finit
    push    ebp
    mov     ebp, esp
    pusha
    mov     ebx, 0
    mov     esi, [ebp + 8] ; adres tablicy
    mov     eax, [ebp + 12] ; n
    fldz
ptl:
    fld     jeden
    fdiv    dword ptr [esi + ebx * 4]
    faddp
    inc     ebx
    dec     eax
    cmp     eax, 0
    jnz     ptl

kont:
    fld     dword ptr [ebp + 12]
    fdiv    st(0), st(1)
    fxch    st(1)




    popa
    pop     ebp

    ret
_srednia_harm ENDP
END