В заданном массиве А(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;beginread(n,m);for i:=1 to n dobeginfor j:=1 to m dobeginread(a[i,j]);end;end;for j:=1 to m dobegink:=0;for i:=1 to n dobeginif(a[i,j]>0)then k:=k+1;end;for i:=1 to n dobeginb[i,j]:=a[i,j]/k;end;end;for i:=1 to n dobeginfor j:=1 to m dobeginwrite(b[i,j],);end;writeln;end;end.