SPCH_T

[Leshiy1]

здравствуйте всем.
Задача такая: В матрице определить сумму положительных чисел каждого столбца, записав их в новый массив

 Program Matrix2;
 Uses Crt;
 label a1;
 const n=3; m=5;
 var a:array[1..n, 1..m] of byte;
     s1:array[1..n] of integer; {novuy massiv}
     i,j,s:integer;
 begin randomize; clrscr;
   textcolor(14);
   for i:=1 to n do begin writeln;
         for j:=1 to m do begin
         a[i,j]:=10+random(20);
         write(a[i,j]:5);
       end; writeln; end;
       writeln;
    for i:=0 to n do begin
    asm
    mov di,i{nomer stolbca}
    mov cx,n{kolichestvo strok}
    mov bx,0
    mov ah,0
    a1: mov al,byte[a+di]
        add bx,ax{summa elementov stolbca}
        add di,j
        loop a1
    mov s,bx
    end;
    write(s:4);
    end;
  readkey;
  End.

Считает сумму столбцов. Как сделать чтобы считал положительные числа. И как вывести массив с отрицательными числами

[Sparky]

а про условые переходы слышали? процедур вывода чисел на ассемблере на форуме куча