Задан двухмерный массив целых чисел А размером N на M состоящих из нулей и единиц. сформировать одномерный массив В[K]. состоящих из единиц и подсчитать их количество
Задан двухмерный массив целых чисел А размером N на M состоящих из нулей и единиц. сформировать одномерный массив В[K]. состоящих из единиц и подсчитать их количество
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы