Найти сумму всех элементов

@ksu04061992 · Регистрация: 12.12.2011

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

Assembler

uses crt;
var i,n,sum, elem,c:integer;
var a: array[1..100] of word;
 
begin
write('Vvedite kolichestvo elementov mas.: ');
readln(n);
sum:=0;
i:=1;
while i <= n do begin
   write('a[',i,'] = ');
   readln(a[i]);
   i:=i+1;
   end;
 
write('Vvedite chislo: ');
readln(c);
 
 
i:=0;
while i<=n do begin
i:=i+1;
elem:=a[i];
  asm
  mov dx,c
  mov ax,elem
  cmp dx,ax
  jc @cont1
 
 @cont1:
  add sum,ax
  end;
  end;
write('Summa =  ', sum);
readln
end.

Данная программа в результате выводит всю сумму элементов, а не сумму меньшую заданному числу. В чем ошибка?

@volvo · 09.12.2014, 11:23

30 и 31 строки местами поменяй...

@volvo Супер-модератор 26847 / 17990 / 7110 Регистрация: 22.10.2011 Сообщений: 31,673 Записей в блоге: 6
	09.12.2014, 11:23	2
	30 и 31 строки местами поменяй... 0

Опции темы