Ассемблер. В заданном массиве целых чисел найти самую большую серию подряд стоящих чётных элементов.

Процессор Intel8086, реальный режим работы;
операционная система MS-DOS;
16-ти разрядное приложение;
компилятор TASM или MASM.

.model small
.stack 100h
.data
array dw 10982,29286,-4315,4163,-23885,-9003,0,18
dw 2980,-6424,29292,-26048,-21098,-25619,3190
dw -7663,-12662,-7350,19271,15181,-3690,24760
dw 6935,-17656,-5692,-14883,15451,14910,19578
dw 11883,-19657,-21878,-890,27014,20460,11522
len equ ($ - array) shr 1
TxtEven db 'Cамaя длинная серия чётных элементов: ',13,10,36
TxtOdd db 'Нет чётных чисел$'
.code
N69712885:
mov si,@data
mov ds,si
xor bx,bx
mov bp,bx
mov di,bx
mov dx,bx
mov cx,len
lea si,array
TestLoop:
lodsw
test ax,1
jnz Odd
or bx,bx
jnz NotNew
mov bp,si
sub bp,2
NotNew:
inc bx
jmp Next
Odd:cmp dx,bx
jnc NotLonger
mov dx,bx
mov di,bp
NotLonger:
xor bx,bx
Next:
loop TestLoop
mov ah,9
or dx,dx
jz NoEven
mov cx,dx
mov si,di
lea dx,TxtEven
int 21h
mov bx,10
OutLoop:
push cx
lodsw
or ax,ax
jns NotNeg
push ax
mov al,'-'
int 29h
pop ax
neg ax
NotNeg:
xor cx,cx
Prepare:
cwd
div bx
or dl,30h
push dx
inc cx
or ax,ax
jnz Prepare
Print:pop ax
int 29h
loop Print
mov al,20h
int 29h
pop cx
loop OutLoop
jmp Quit
NoEven:
lea dx,TxtOdd
int 21h
Quit:
mov ah,8
int 21h
mov ax,4C00h
int 21h
end N69712885

Решай, в чем проблема то?

Или ты думаешь что за тебя сейчас твои лабы делать будут?

Будут делать. Но за деньги :)