Вычислить и запомнить количество отрицательных элементов каждого столбца для матрицы A(10,10) , B (15,20)

[bitmania]

Помогите дописать программу очень срочно нужно вот задание : Вычислить и запомнить количество отрицательных элементов каждого столбца для матрицы A(10,10) , B (15,20). Вот код:

Var
a:array[1..10,1..10] of integer;
b:array[1..15,1..20] of integer;
c1:array[1..10] of integer;
c2:array[1..15] of integer;
procedure calc;
var i,j,n:integer;
begin
for i:=1 to 10 do
begin
n:=0;
for j:=1 to 10 do
begin
if a[i,j]<0 then
n:=n+1;
end;
c1[i]:=n;
end;
for i:=1 to 15 do
begin
n:=0;
for j:=1 to 20 do
begin
if b[i,j]<0 then
n:=n+1;
end;
c2[i]:=n;
end;
end;

[AVer]

Че такое матрица В?
Вот программа ищет кол-во отрицательных значений в каждом столбике матрицы А:

Const M = 10; N = 10;
Var A:array[1..N,1..M] of Integer;
    B:array[1..M] of Integer;
    I,J:Integer;
begin
For I:=1 To M Do
 Begin
 B[I]:=0;
 For J:=1 To N Do
 If A[J,I] < 0 Then
 Inc(B[I]);
 End;
end.

[Роман Радер]

эммм... знакомый код)) (в первом сообщении)
что тебя в нем не устроило? сказал бы, я б ответил, изменил...
хотя твое дело

[bitmania]

Ты с аськи вышел как я тебе скажу))) надо коечто уточнить зайди в аську как нибудь)