Прошу)) задан двухмерный массив целых чисел а размером n на м, состоящий из отрицательных и положительных элементов. найти количество отрицательных элементов и их сумму. вывести на экран этот массив, затем преобразовать его, заменив отрицательные элементы на ноль.

// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество колонок в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementswithindexes.where(x-> x[2]< 0);   writeln(s.count,' отрицательных элементов с суммой ',s.select(x-> x[2]).sum);   writeln('*** результирующий массив ***');   foreach var ijv in s do a[ijv[0],ijv[1]]: =0;   a.println(4) end. пример количество строк в массиве: 4 количество колонок в массиве: 7 *** исходный массив [4,7] ***   97  -4 -24  49    1  86 -15   -84 -17 -56 -76 -26 -77  49   -8  48 -29  60  20  82  90   -28  -4 -69  32 -63 -35 -72 17 отрицательных элементов с суммой -687 *** результирующий массив ***   97    0    0  49    1  86    0     0    0    0    0    0    0  49     0  48    0  60  20  82  90     0    0    0  32    0    0    0

ответ:

возможно условие фано