Найти количество пар "соседних" чисел, оканчивающихся на цифру 5 - Assembler

Формулировка задачи:

Обработка данных в цикле (Организация вычислений во время ввода данных) помогите с программой (говоря простым языком, кто не занят ,или кого не затруднит , напишите ее -_-) Даны натуральное число n и целые числа a1, a2, ..., . an. Найти количество пар "соседних" чисел, оканчивающихся на цифру 5. Заранее огромное спасибо тем кто поможет, очень благодарен.

Код к задаче: «Найти количество пар "соседних" чисел, оканчивающихся на цифру 5 - Assembler»

textual
LOCALS
 
.model small
 
.stack 100h
 
.data
        A       db      3, 2, 9, 0, 8, 45, 5, 15, 9, 5
        N       dw      $-A
.code
 
main    proc
        mov     ax,     @data
        mov     ds,     ax
 
        ;Найти количество пар "соседних" чисел,
        ;оканчивающихся на цифру 5.
        lea     si,     A
        mov     cx,     N
        dec     cx
        mov     di,     0       ;количество пар
@@For:
        mov     al,     [si]
        cbw
        add     si,     1
        mov     bl,     10
        idiv    bl
        cmp     ah,     5
        jne     @@Next
 
        mov     al,     [si+1]
        cbw
        add     si,     1
        mov     bl,     10
        idiv    bl
        cmp     ah,     5
        jne     @@Next
 
        inc     di
@@Next:
        loop    @@For
 
        mov     ax,     di
 
        aam
        add     ax,     '00'
        mov     dl,     ah
        mov     dh,     al
        mov     ah,     02
        int     21h
        mov     dl,     dh
        int     21h
 
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ