Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ СРОЧНО НА PASCAL ABC ! ЕСЛИ ХОТИТЕ, ТО МОЖНО PASCALABC.NET)

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Задайте M и N:');

 Writeln('Вводите элементы матрицы построчно');

 var a := ReadMatrInteger(m, n);

 Writeln('Исходная матрица');

 a.Println;

 var s := 0;

 foreach var j in Range(1, n - 1, 2) do

   s += a.Col(j).Where(p -> p < 0).Sum(p -> p * p);

 Print('Получена сумма', s)

end.