.686
.model flat,stdcall
option casemap:none
include masm32includewindows.inc
include masm32includekernel32.inc
include masm32includeuser32.inc
includelib masm32libkernel32.lib
includelib masm32libuser32.lib
includelib masm32binmyio.lib
FindMas proto :BYTE,:BYTE,:BYTE,:BYTE ;масив,L,M,N
BSIZE equ 32
.data
st1 db "DLL-файлы",0
masA db 5,56,14,8,1,3,16
st2 db "Исходный массив:",0ah
st3 db "5,56,14,8,1,3,16",0ah,0ah
st4 db "Условие: 5<=Ai<15",0ah,0ah
buf db BSIZE dup(?)
frmt db "количество элементов",0ah
st5 db "удовлетворяюших условие = %d",0ah,0ah
st6 db "Богаевский А. КиТ-18б",0
N db 7
L db 5
M db 15
.code
_st:
invoke FindMas,masA,L,M,N
; ebx - лічильнік
invoke wsprintf,ADDR buf,ADDR frmt, ebx
invoke MessageBox,0,ADDR st2,ADDR st1,MB_OK
invoke ExitProcess,0
end _st