Массив

[Doublefaced]

Написал программу, но где - то ошибка:

Собственно задание

Тип массива:Byte
Где объявлять:Var
(сегмент)
Признак окончания(1):-
Задание:Вычитайте из числа 65535 значения элементов массива пока результат не меньше 255.
Результат:В переменную.

(1)Это последний элемент массива, если в цикле встретилось данное число, выходим из цикла, так как элементы массива закончились. Если число не указано, то нулевой элемент массива – это его длина (количество элементов массива - 1), и элементы массива начинаются с первого элемента. В любом случае эти крайние элементы (нулевой или последний) не должны участвовать в вычислениях при выполнении задания.

uses Windows;
var a: array [0..10] of byte;
begin
asm
mov AX, 65535
xor DX,DX
mov ebx, offset a
mov ecx, 0
mov cl, [ebx]
inc ebx
mov dx, 0
mov dl, [ebx]
sub ax, dx
cmp ax, 255
@L1:
end;
end.

[Stilet]

Что-то типа такого:

   var a:array[1..10] of byte;i:word;
begin
 for i:=1 to 10 do a[i]:=random(100);
 i:=65535;
 asm
  mov ax,[i];
  mov ecx,10
  mov esi,offset a
 @q1:
  sub ax,[esi+ecx]
 loop @q1
  mov [i],ax
 end;
  write(i);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Рабочий но на правильность не проверял...

[Doublefaced]

Можете сделать пояснения?
на выходе почему то получается одно и тоже число?
или я что-то не понял

[MalCer]

На выходе одно и тоже число, потому что здесь ф-ия random. Если нужно, например, чтобы числа были разные, то нужно использовать randomize.
mov ax,[i]; в ax счетчик
mov ecx,10; счетчик в 10 тактов, т.к. чисел 10
mov esi,offset a ; смещение массива
sub ax,[esi+ecx] ; вычитаем числа котрые в [esi+ecx]
Ну и , соответственно, повторяем цикл, перебирая массив

[airyashov]

а на чем пишем-то