Матрицу d(8.9) заполнить целыми случайными числами в диапазоне (-100; 100). вывести номера столбцов, в которых количество отрицательных элементов больше чем количество положительных. вывести исходную матрицу d(8.9)

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var m: =8; var n: =9;   writeln('*** исходная матрица d[',m,',',n,'] ***');   var d: =matrrandom(m,n,-100,100);   d.println(5); writeln(5*n*'-');   writeln('столбцы, в которых отрицательных элементов больше положительных');   for var i: =0 to n-1 do       if (d.col(i).where(x-> x< 0).count)> (d.col(i).where(x-> x> 0).count)       then print(i+1) end. пример *** исходная матрица d[8,9] ***     10  -41    26      3    98    64    -9  -11  -91     -9  -43    44    -1    59  -74  -86  -61    -6     39    72  -67    30  -65 -100  -51  -98  -29     67  -43  -67    95    15  -30    11    14    51   -66  -64    -7  -81    15    56  -20    46  -58     12    19  -33  -92  -58    69    23  -43  -35     36    80  -76    25  -47    95    -7    24  -69     77    -4    42  -26    88  -56  -25    81  -98 столбцы, в которых отрицательных элементов больше положительных 2 3 7 9

5 строка и столбец B - это B5

Объяснение: