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