В заданном массиве А(m,n) найти количество положительных элементов по столбцам. Образовать массив B(m,n), делением элементов заданного массива на найденное количество положительных элементов по столбцам.

Program gt;
var a:array[1..100,1..100]of longint;
k,m,i,n,j:longint;
b:array[1..100,1..100]of real;
begin
read(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
end;
end;
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
begin
if(a[i,j]>0)then k:=k+1;
end;
for i:=1 to n do
begin
b[i,j]:=a[i,j]/k;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(b[i,j], );
end;
writeln;
end;
end.