Здравствуйте, Посетитель - 340752!

Смотрите приложение.
По программе:
1) из-за небольшого диапозона используемых значений: random(20)-10, в ассемблерном коде отсутствует работа с флагами CF , OF и SF;
2) использована команда целочисельного деления со знаком IDIV, делимое должно находится в регистрах DX:AX, т.к. до этого работали только с 16-ти битными регистрами, то значение регистра DX заполняется старшим знаковым битом регистра АХ (трюк №1);
3) индексация элементов массива в ассемблере идет с нуля, в ЯВУ может начинатся с любого номера. С массивом работаем с помощью адресации по базе с индексированием,а выводом значений занимается компилятор PASCAL. Поэтому корректируется значения SI(индекс) и BX(база). При вычислении адреса в памяти [ bx + si ], будет получено нужное значение адреса(трюк №2) текущего элемента и соответсвующий ему, порядковый номер. Если выводится ноль, то такого элемента нет в массиве.
вопросы по программе задавайте в мини-форум.
Удачи!

Приложение:
uses crt;
const n=10;
var l:array[1..n] of integer;
i,num,max,min,sum,s2m:integer;
begin
clrscr;
randomize;
{выводим нумерацию}
write('number:');
for i:=1 to n do write(i:4);
writeln;
{создаем и выводим массив}
write('matrix:');
for i:=1 to n do
begin
l[i]:=random(20)-10;
write(l[i]:4);
end;
writeln;
{задание на ассемблере начинаем}
asm
{настраиваемся на массив}
lea si,l
mov cx, n
mov di,si
mov bx,si
{загружаем преверяемое значение}
@@01:
mov ax,[si]
{проверяем с минимальным, если да то запоминаем его индекс}
cmp ax,[di]
jge @@02
mov di,si
{проверяем с максимальным, если да то запоминаем его индекс}
@@02:
cmp ax,[bx]
jle @@03
mov bx,si
{в цикле переходим к следующему значению}
@@03:
add si,2
loop @@01
{запоминаем значения максимального и минимального элемента}
mov ax,[bx]
mov max,ax
mov bx,[di]
mov min,bx
{суммируем и запоминаем}
add ax,bx
mov sum,ax
{трюк №1}
push ax
shl ax,1
pop ax
rcr dx,1
mov cl,16
sar dx,cl
{делим на два, запоминаем результат}
mov bx,2
idiv bx
mov s2m,ax
{готовимся к поиску совпадения}
mov cx,n
lea bx,l
{трюк №2}
mov si,2
sub bx,2
{поиск совпадения в цикле, нашли выходим из цикла}
@@04: cmp ax,[bx+si]
jz @@05
add si,2
loop @@04
{есди попали сюда, то совпадений нет}
xor si,si
@@05:
shr si,1
mov num,si
end;
{задание на ассемблере закончено}
{выводим результат}
writeln('min',min:5);
writeln('max',max:5);
writeln('sum',sum:5);
writeln('div',s2m:5);
writeln('num',num:5);
readkey;
end.