Задача 12. "Друзья". В поездке пятеро друзей — АНТОН, Борис, Вадим, Дима и Гриша, знакомились с Попутчицей. Они предложили ей Отгадать их фамилии, причём каждый из них высказал ОДНО ИСТИННОe и ОДНО ЛОЖНОe утверждение: Дима сказал: "Моя фамилия — МОЛОТОВ, а фамилия Бориса – Хрущев". АНТОН сказал: "МОЛОТОВ — это моя фамилия, а фамилия Вадима – Брежнев". Борис сказал: "Фамилия Вадима - ТИХОНОВ, а моя фамилия — Молотов". Вадим сказал: "Моя фамилия — Брежнев, а фамилия Гриши — Чехов". Гриша сказал: "Да, моя фамилия Чехов, а фамилия Антона - ТИХОНОВ". Какую фамилию Носит каждый из друзей?
// Внимание! Если программа не работает, обновите версию!
begin
var V:=MatrRandom(7,7,-15,15);v.Println;
var com:= V.Row(2).Aggregate(BigInteger(1),(x,y)->(x*y));
Writeln('Произведение эл-в 3ей строки = ', com);
var cnt := 0;
Foreach var x in V.Row(2) do
if x > com then inc(cnt);
Writeln('Количество элементов, больших чем это произведение = ', cnt);
Writeln('Максимальный элемент 3го столбца = ', V.Col(2).Max);
end.
Пример:
2 -4 -15 10 -1 2 6
15 -8 11 5 14 10 15
0 15 -10 13 -8 -13 14
14 6 13 -10 9 6 -12
-14 1 8 -9 1 -12 12
15 9 10 -7 -14 6 -3
9 9 -1 -14 1 1 3
Произведение эл-в 3ей строки = 0
Количество элементов, больших чем это произведение = 3
Максимальный элемент 3го столбца = 13
Правил