matrix = [sum(list(map(int, input().split()))) for i in range(10)] # если 20 по вертикали, замени 10 на 20
m = max(matrix)
print(m, matrix.index(m))
Объем информации для записи номеров участников:
для 1го - 1 бит x 1 = 1
для 2-3го - 2 бита x 2 = 4
для 4-7го - 3 бита x 4 = 12
для 8-15го - 4 бита x 8 = 32
для 16-31го - 5 бит x 16 = 80
для 32-63го - 6 бит x 32 = 192
для 64-120 - 7 бит x 64 = 448
для записи результатов по 8 бит на каждого. 8 x 120 = 960
итого, 1729 бит
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords;
a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Println
end.
<u>Пример</u>
vanitas vanitatum et omnia vanitas
vanitatum
Эм... может нормально варианты скинешь?