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

Смотрите приложение.
Код писался под встроенный ассемблер ТР 7.0.
Вопросы задавайте в мини-форум.
Удачи!

Приложение:
const
n=5;
m=6;
type
tMatrix=array[1..n,1..m]of integer;
tMassiv=array[1..n*m]of integer;
{определяем переменные}
var
z:tMatrix;
x:tMassiv;
y:integer;
{процедура создания матрицы}
procedure Vvod(var a:tMatrix);
var
b,c:integer;
begin
randomize;
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(20);
write(a[b,c]:3);
end;
writeln;
end;
end;
{процедура вывода массива}
procedure Vivod(a:tMassiv;b:integer);
var
c:integer;
begin
writeln('Vivod:');
for c:=1 to b do
write(a[c]:3);
end;
{процедура стортировки}
procedure Sort;
begin
asm
push ds
pop es
lea bx,z{настраиваемя на матрицу и массив}
lea di,x
push di
mov cx,n-1{проверяем на одну строку меньше}
{A}
@@04:
push cx{запоминаем параметры цикла}
mov si,bx{указатель на первый элемент строки}
mov cx,m{количество элементов в строке}
add bx,2*m{переходим к следующей строке}
{B}
@@03:
{считываем проверяемый элемент}
lodsw
{запоминаем параметры внешнего цикла}
push cx
push si
{настраваемся на цикл проверки}
mov si,bx
mov cx,m
{цикл проверки совпадаений в следующей строке}
@@01:
cmp ax,[si]{проверяем совпадение}
jz @@02{совпала - заканчиваем цикл}
add si,2{следующий элемент}
loop @@01
{запоминаем проверенный элемент}
stosw
@@02:
pop si{востанавливаем параметры цикла В}
pop cx
loop @@03
{востанавливаем параметр цикла А}
pop cx
loop @@04
{запоминаем количество элементов}
pop ax
sub di,ax
shr di,1
lea si,y
mov [si],di
end;
end;
begin{main}
Vvod(z);
Sort;
Vivod(x,y);
readln;
end.{main}