Cумма_Т

[Leshiy1]

Program Matrix;
Uses Crt;
const n=5; m=7;
var a:array[1..n, 1..m] of integer;
x,y:integer;
begin randomize; clrscr;
textcolor(14);
for x:=1 to n do begin
writeln;
for y:=1 to m do
begin
a[x,y]:=10+random(20);
write(a[x,y]:5);
end; writeln; end;
writeln;
asm
lea bx,a
mov di,0
mov ax,[bx+di]
mov si,di
mov cx,n*m
end;
Readkey;
End.

Как найти сумму столбцов в матрице

[Stilet]

Ну допустим мой любимый трюк:

Program Matrix;
Uses Crt;
const n=5; m=7;
var a:array[1..n+1, 1..m] of integer;
x,y:integer;
begin randomize; clrscr;textcolor(14);
 for x:=1 to n do begin writeln;
  for y:=1 to m do begin
    a[x,y]:=10+random(20);
    a[n+1,y]:=a[n+1,y]+a[x,y];
    write(a[x,y]:5);
  end; writeln; 
 end; 

 Writeln('Суммы столбов:');  for y:=1 to m do begin    write(a[n+1,y]:5);  end; writeln; 

 writeln;
 asm
  lea bx,a
  mov di,0
  mov ax,[bx+di]
  mov si,di
  mov cx,n*m
 end;
 Readkey;
End.