Судя по полагается то , что они играли не зависимо за какую именно . посчитаем сколько вообще было встреч , у команды первой лиги команд в 2 раза больше так как . посчитаем отдельно каждую встречу внутри команд ,и между разными . по первой лиги это число сочетаний по высшей лиги это число сочетаний а между собой очевидно в сумме встреч. если не было ничьи то очевидно одно из двух 1) либо команда проиграет 2) либо команда выиграет число выигрышей и проигрышей будет равна количеству сыгранных игр . то есть если всего у команда побед то пусть количество выигрышей команды первой лиги равна , то другой что бы число делилось на 8 , очевидно что n либо само должно быть кратно 8 , либо должно делится на 8 , подходит при нем все выполняется
//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
