data SEGMENT
MyArray DB 1, 2, 3, 1, 2, 3, 1,
TotalCount DB 0
ARRAY_size equ 7
code SEGMENT
ASSUME cs:code, ds:data
begin:
MOV AX, data
MOV DS, ax
lea SI,MyArray
mov bl,[SI+ARRAY_size-1]
mov cx,ARRAY_size
Sloop:
LODSB
cmp al,bl
jne NextChar
inc TotalCount
NextChar:
LOOP Sloop
MOV ax,4c00h
int 21h
code ENDS
end begin
2. В масиве A[m] заменить все нулевые елементи (крщму первого) на значения предыдущего елемента.
масив ввести с клавы и вывести потом на экран, и еще ту же самую задачу сделать с помощью паскаля. Вотя пробовала , но не сложилось....
Uses Crt;
var a:array[1..10] of integer;
m:byte;
begin
ClrScr;
for m:= 1 to 10 do
read(a[m]);
for m:= 1 to 10 do
begin
asm
mov SI,word ptr m
mov ax, word ptr a[SI+1]
cmp ax,0
jnz @No
mov bx,word ptr a[SI]
mov word ptr a[SI+1],bx
@No: mov ax, word ptr a[SI+1]
end;
end;
for m:=1 to 10 do
write(a[m]);
end.