Задан двухмерный массив целых чисел А размером N ** M состоящих из нулей и единиц....

Question

Задан двухмерный массив целых чисел А размером N на M состоящих из нулей и единиц. сформировать одномерный массив В[K]. состоящих из единиц и подсчитать их количество

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,0,1);
  a.Println(2); Writeln(2*a.ColCount*'-');
  var b:=a.ElementsByRow.Where(x->x=1).ToArray;
  var k:=b.Count; b.Println;
  Writeln('k=',k)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
 0 0 1 1 1 1 1 1 0 0 1 0
 0 1 1 1 0 0 1 1 1 0 1 0
 1 0 0 1 0 1 0 0 0 0 0 0
 1 0 0 0 0 1 0 1 0 0 1 0
 1 1 1 1 0 1 1 0 1 0 0 1
------------------------
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
k=29