Написать программу в паскале: определить кол-во положительных и отрицательных элементов в каждом столбце массива a(n,m)

// pascalabc.net 3.2, сборка 1382 от 06.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(5*a.colcount*'-');   a.cols.select(x-> format('{0,4}',x.where(y-> y> 0).('');   println(' - положительных');   a.cols.select(x-> format('{0,4}',x.where(y-> y< 0).('');   println(' - отрицательных'); end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   32  83 -68 -33 -63  43    0  30   81  46 -52  56  49  10 -31    9   -41 -56 -80  70 -95  94 -53  56     0 -87 -24  23 -54  24 -84  -3   22  74  54 -98  42  94 -68  59     3    3    1    3    2    5    0    4 - положительных     1    2    4    2    3    0    4    1 - отрицательных

Наука о информационных технологиях наука о виртуальности наука о бесконечной скорости наука о с наука которую невозможно понять