Дан двумерный массив M*N, заполненный случайными числами от -10 до 10. Найдите сумму всех элементов столбца и строки массива, на пересечение которых находится нулевой элемент( все суммы если нулевой неКак узнать сколько) или выведите сообщение, что в массиве нет нулевых элементов. Pascal. посчитайте

##

var (m, n) := ReadInteger2('Укажите число строк и столбцов:');

var a := MatrRandom(m, n, -10, 10);

a. Println(4);

var b := a. ElementsWithIndices. Where(t -> t[0] = 0). ToArray;

if b. Length = 0 then

Print('Нет нулевых элеметов')

else

begin

Print('Искомые суммы:');

b. Select(t -> a. Row(t[1]). Sum + a. Col(t[2]). Sum). Print

end