Developing.ru

Код: Выделить всё

Uses crt;

var mtx : Array[1..3, 1..3] of Integer;
    summ: Integer;
    x,y : Integer;

Function GetRandom(i:Integer):Integer;
begin
GetRandom := Random(i);
end;

begin
ClrScr;
Randomize;
asm
mov di, offset mtx
mov cx, 9
  @Generate:
push cx
push 200
call GetRandom
sub ax, 100
mov [di], ax
add di, 2
pop cx
loop @Generate
end;
Writeln('Original matrix:');
For X:=1 to 3 do
  begin
  For Y:=1 to 3 do Write(mtx[x,y]:5);
  Writeln;
  end;
asm
mov summ, 0
mov si, offset mtx
mov cx, 9
  @Absolute:
mov ax, [si]
test ax, ax
jns @Positive
not ax
inc ax
mov [si], ax
    @Positive:
add summ, ax
add si, 2
loop @Absolute
end;
Writeln('Processed matrix:');
For X:=1 to 3 do
  begin
  For Y:=1 to 3 do Write(mtx[x,y]:5);
  Writeln;
  end;
Writeln('Summ = ', summ:6);
end.