Вывод найбольшего числа из массива и номер его последнего вхождения

@Assembler · Регистрация: 30.09.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте!
В общем есть задание прочитать массив, вывести наибольшее число и номер его последнего вхождения.
Все у меня получается, только вот с номером его последнего вхождения - никак.
Вот сам код, который считывает массив и выводит большее число из него:

Assembler

............
.CONST
MAS DW 5 DUP (?)
 
START
MOV SI, 0
MOV BX, -100
MOV CX, 5
 
CKL:
RWORD AX
MOV MAS[SI], AX
CMP MAS[SI], BX
JL FINISH
MOV BX, MAS[SI]
JMP FINISH
FINISH:
ADD SI, 2
LOOP CKL
 
WWORD BX
.......

Скажите пожалуйста как вывести еще номер большего числа?
Если возможно - посоветуйте как реализовать на 16-разрядном ассемблере.
Заранее благодарен!

Добавлено через 4 минуты
Надо под DOS

@airyashov · 24.10.2010, 00:33

Assembler

.CONST
MAS DW 5 DUP (?)
 
START
MOV SI, 0
xor di,di
MOV BX, -100
MOV CX, 5
 
CKL:
RWORD AX
MOV MAS[SI], AX
CMP MAS[SI], BX
JL FINISH
MOV BX, MAS[SI]
mov di,si
JMP FINISH
FINISH:
ADD SI, 2
LOOP CKL
 
WWORD BX
WWORD di
.......

@Assembler · 24.10.2010, 00:42 **[ТС]**

Нет, не работает. Точнее работает, но результат не верный

Можно еще как-нибудь реализовать?

@assemb · 24.10.2010, 00:47

Assembler

CSEG segment
org 100h
 
proga:
mov si,offset mas1
mov cx,0
mov bl,[si]
@1:
    lodsb
    cmp al,bl
    ja @f
    inc cx
    cmp cx,len
    je ex
    jmp @1
@@:
    mov bl,al    ;запись наибольшего
    mov dx,si    ;номер вхождения
    dec dx
    inc cx
    cmp cx,len
    je ex
    jmp @1
 
ex:
ret
 
mas1 db 5,4,0fh,0ah,9
len equ $-mas1
 
CSEG ends
end proga

@Assembler · 24.10.2010, 00:51 **[ТС]**

мммм....у меня такие команды не читаются....
это 16-разрядный? под дос?

@assemb · 24.10.2010, 00:58

Assembler

.8086
.model small
.stack 100h
.data
mas1 db 5,4,0fh,0ah,9
len equ $-mas1
 
.code
proga:
mov dx,@stack
mov ss,dx
mov dx,@data
mov ds,dx
mov si,offset mas1
mov cx,0
mov bl,[si]
@1:
    lodsb
    cmp al,bl
    ja @f
    inc cx
    cmp cx,len
    je ex
    jmp @1
@@:
    mov bl,al
    mov dx,si
    dec dx
    inc cx
    cmp cx,len
    je ex
    jmp @1
 
ex:
mov ah,4ch
int 21h
end proga

@Assembler · 24.10.2010, 00:59 **[ТС]**

спасибо!

@Assembler 7 / 8 / 1 Регистрация: 30.09.2010 Сообщений: 33
	24.10.2010, 00:42 [ТС]	3
	Нет, не работает. Точнее работает, но результат не верный Можно еще как-нибудь реализовать? 0

@Assembler 7 / 8 / 1 Регистрация: 30.09.2010 Сообщений: 33
	24.10.2010, 00:51 [ТС]	5
	мммм....у меня такие команды не читаются.... это 16-разрядный? под дос? 0

@Assembler 7 / 8 / 1 Регистрация: 30.09.2010 Сообщений: 33
	24.10.2010, 00:59 [ТС]	7
	спасибо! 0