В заданном массиве А (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.