Novmassiv_T

[Leshiy1]

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

Program Matrix2;
 Uses Crt;
 const n=3; m=5;
 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
 
    end;
  readkey;
  End.

Как записать сумму в новый массив

[Mikl___]

Leshiy1
А для сумм положительных чисел каждого столбца
1) заводим b:array[1..n] of integer устанавливаем i:=1
2) подсчитываем в цикле сумму положительных чисел i-ого столбца и помещаем ее в b[i]
3) увеличиваем i:=i+1 переходим к пункту 2 пока i<= n

[Leshiy1]

Мне это на asm надо