Программа с массивом!

[kiruka4]

Помогите,пожалуйста написать программу которая умножает все элементы одномерного массива,которые меньше 7-и. Ну и выводит результат на экран,конечно.

p.s.В Ассемблере

[Stilet]

Умножает на что?

[kiruka4]

друг на друга. Ну,в смысле перемножает эти элементы между собой.

[Stilet]

Что-то в этом огороде:

format PE ; console
include 'D:\fasmw16726\INCLUDE\win32a.inc'

entry start

section '.data' data readable writeable
mas        dw 1,2,3,8,4,9,12

section 'Код' code readable executable

start:
 mov ecx,6
 mov ax,[mas+ecx*2]
 dec ecx
dododo:
 xor edx,edx
 xor ebx,ebx
 mov bx,[mas+ecx*2]
 cmp bx,7
 jl next
 mul ebx
next:
loop dododo
ret

[kiruka4]

Ого!!! Я даже не знаю где это писать нужно.
Мы создаем файл с расширением .asm,набираем в нем текст программы,а потом компилируем этот файл с помощью Link и masm
Примерно так:

PAGE 60,132
TITLE EXASM
;--------------------------
STACKSG SEGMENT PARA STACK 'Stack'
DW 32 DUP(?)
STACKSG ENDS
;--------------------------
DATASG SEGMENT PARA 'Data'
A DW 86
B DW 26
C DW 23
DATASG ENDS
;--------------------------
CODESG SEGMENT PARA 'Code'
BEGIN PROC FAR
ASSUME CS:CODESG, DS:DATASG, SS:STACKSG, ES:NOTHING
PUSH DS
SUB AX, AX
PUSH AX
MOV AX, DATASG
MOV DS, AX
;-------------------------(A-B)*(A-C)
MOV AX, A
SUB AX, B
MOV BX, A
SUB BX, C
CWD
IMUL BX
MOV BX, AX
MOV AH, 02H
INT 21H
RET
BEGIN ENDP
CODESG ENDS
END BEGIN

[kiruka4]

ого! Да я даже не знаю где это вводить нужно.
Мы пишем в файле с расширением .asm и компилируем с помощью link и masm
Примерно так:
dseg segment 'data'
a db 100 dup ("ADFCCCPES")
b db 10h
dseg ends


scode segment para 'code'
begin proc far
assume cs:scode

push ds
sub ax,ax
push ax
mov ds,ax
mov cx,10
lea dx,a

vivod:

cmp dx,"C"
JE m1
mov ah,2
int 21h
m1:
inc al
loop vivod




mov ah,4ch
int 21h
begin endp
scode ends
end begin