V1 - только это монета встречается во всех взвешиваниях.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
<span>В качестве разделителей добавлены только: пробел, запятая, точка и тире.</span>
<span>(4096*64)=262144;
262144/8/16=2048 vrode tak</span>