Двумерный массив

[Анжелика]

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

[YurVas]

program mas;
var a:array [1..100,1..100] of integer;
c,b:array [1..100] of integer;
i,j,k,n,m,s:integer;
begin
writeln ('vved n,m');
readln (n,m);
randomize;
writeln ('ishodnay tabl');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-random(50)+25;
write (a[i,j],' ');
end;
writeln;
end;
for j:=1 to m do
begin
s:=0;k:=0;
for i:=1 to n do
if a[i,j]>0 then begin
s:=s+a[i,j];
k:=k+1;
end;
b[j]:=s;
c[j]:=k;
end;
writeln ('summa + po stolbcam');writeln;
for j:=1 to m do
write (b[j],' ');
writeln; writeln ('kol-vo + po stolbcam');writeln;
for j:=1 to m do
write (c[j],' ');
readln;
end.

[Анжелика]

Спасибо огромное!!!!

[Chief]

Пожалуйста помогите!завтра отчет!
Даны целочисленная матрица размером n*3,целые числа k,l(1<=k<=n,1<=l<=n,k не равно 1). Преобразовать матрицу так,чтобы строка с исходным номером k непосредственно следовала за строкой с исходным номером l,сохранив порядок следования остальных строк.