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