Вмира по футболу вышла германии бразилии франции спирта стали высказывать свои предположения в результате - id854366520220411 от BlackGus007 11.04.2022 06:06

Question

Информатика: Вмира по футболу вышла германии бразилии франции спирта стали высказывать свои предположения в результате чемпионата один эксперт считает что на первом месте будет она втором германии второй эксперт утверждает что на втором месте будет бразилия она четвёртую франция третий теперь сказал что втором месте а третьи франция после чемпионата выяснилось что каждый вид с пять тав был прав только на одну целую три дения какое место на чемпионате звонила германия бразилия франция ответе перечислите без пробелов

BlackGus007 · Accepted Answer

// 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

MOGZ ответил