Question

Паскаль Найти сумму тех элементов двумерного массива, которые больше 1.

Answer 1

// PascalABC.NET 3.2, сборка 1416 от 26.03.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*'-');
  Writeln('S=',a.ElementsByRow.Where(x->x>1).Sum)
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
   5 -40  29  34 -77  19  80
   4 -13   9  13 -37  -3 -38
 -12 -35  44 -90 -50  66 -58
 -79 -62  79  96 -36 -11  13
----------------------------
S=491