125(10)+x=112(3)
112(3)=14(10)
x=-111(10)
------------------------
107(10)+x=210(5)
210(5)=55(10)
x=-52(10)
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
function num(n: integer): integer;
begin
if n <= 36 then num := (n - 1) div 4
else num := 8 - (n - 37) div 2
end;
begin
var carr := ArrFill(9, 0);
for var i := 1 to ReadInteger do carr[num(ReadInteger)] += 1;
carr.AdjacentGroup.Where(t -> t[0] = 6).Select(t -> t.Count).Max.Println;
end.
Пример:
Ввод:
12
5 6 3 4 8 7 51 9 10 54 49 52
Вывод:
1
Ответ:
при х=5 т.к. при этом 1 и 2 будут ложными