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

program zz1;

const m = 5; n = 4;

var i, j, p, k: integer;

a: array[1 ... m, 1 ... n] of integer;

b: array[1 ... m, 1 ... n] of real;

begin

for i:=1 to m do begin

for j:=1 to n do begin

a[i, j]:=random (10) - 5; / /заполнение матрицы случайными числами и вывод на экран

write (a[i, j]:3);

end;

writeln; / / переходим на новую строку для вывода ответа

end;

for j:=1 to n do

begin

for i:=1 to m do

if a[i, j] > 0 then p:=p + 1;

writeln (' в ', j,'-ом столбце положительных ', p);

for i:=1 to m do

b[i, j]: = a[i, j] / p;

p:=0;

end;

for i:=1 to m do

begin

for j:=1 to n do

write (b[i, j]:6:2);

writeln;

end;

end.