Question

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

Answer 1

##

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