задан двухмерный массив целых чисел А размером N на M состоящих
Задан двухмерный массив целых чисел А размером N на M состоящих из нулей и единиц. сформировать одномерный массив В[K]. состоящих из единиц и подсчитать их количество
Задать свой вопрос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-gt;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
// Внимание! Если программка не работает, обновите версию!
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-gt;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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов