Ре­ше­ние. Ясно, что ос­нов­ное мно­же­ство со­сто­ит из всех по­ло­жи­тель­ных ско­ро­стей и всех от­ри­ца­тель­ных ско­ро­стей, если от­ри­ца­тель­ных ско­ро­стей нечётное число. Если же от­ри­ца­тель­ных ско­ро­стей чётное число, то ос­нов­ное мно­же­ство со­сто­ит из всех по­ло­жи­тель­ных ско­ро­стей и всех от­ри­ца­тель­ных ско­ро­стей, кроме ча­сти­цы име­ю­щей самую ма­лень­кую по мо­ду­лю от­ри­ца­тель­ную ско­рость.

При­ведённая ниже про­грам­ма в пе­ре­мен­ной parity хра­нит число ча­стиц, име­ю­щих от­ри­ца­тель­ную ско­рость. В пе­ре­мен­ной ineg хра­нит по­ряд­ко­вый номер наи­мень­ше­го по мо­ду­лю от­ри­ца­тель­но­го числа. В пе­ре­мен­ной zero хра­нит­ся по­ряд­ко­вый номер нуля, если он при­сут­ству­ет во вход­ных дан­ных.

Про­грам­ма под­счи­ты­ва­ет число ча­стиц, име­ю­щих от­ри­ца­тель­ную ско­рость и фик­си­ру­ет номер наи­мень­ше­го от­ри­ца­тель­но­го числа. Также про­грам­ма фик­си­ру­ет при­сут­ствие нуля во вход­ных дан­ных. Если число ча­стиц, име­ю­щих от­ри­ца­тель­ную ско­рость чётно, то вы­во­дят­ся все но­ме­ра ча­стиц, кроме но­ме­ра ча­сти­цы с самой ма­лень­кой по мо­ду­лю от­ри­ца­тель­ной ско­ро­стью. В про­тив­ном слу­чае вы­во­дят­ся но­ме­ра всех ча­стиц. Номер ча­сти­цы, име­ю­щей ну­ле­вую ско­рость не вы­во­дит­ся, если такая ча­сти­ца есть.

При­мер про­грам­мы на языке Пас­каль:

program N_27;

var

N: Word;

a: LongInt; {те­ку­щее зна­че­ние ско­ро­сти}

neg: LongInt; {зна­че­ние наи­мень­шей по мо­ду­лю от­ри­ца­тель­ной ско­ро­сти}

ineg: Word; {номер ча­сти­цы, име­ю­щей ми­ни­маль­ную по мо­ду­лю от­ри­ца­тель­ную ско­рость}

zero: Word; {номер ча­сти­цы, име­ю­щей ну­ле­вую ско­рость}

parity: Word; {число ча­стиц с от­ри­ца­тель­ной ско­ро­стью}

i: integer;

begin

neg:=-10*10*10*10*10*10*10*10*10-1;

ineg:=0;

zero:=0;

parity:=0;

readln(N);

for i:=1 to N do

begin

readln(a);

if a<0 then

begin

parity:=parity+1;

if a > neg then

begin

neg:=a;

ineg:=i;

end;

end;

if a=0 then zero:=i;

end;

for i:=1 to N do

begin

if ((parity mod 2=0) and (i<>ineg) and (i<>zero)) then write(i,' ');

if ((parity mod 2=1) and (i<>zero)) then write(i,' ');

end;

end.

При­ме­ча­ние.

Ясно, что в дан­ной про­грам­ме можно из­бе­жать 2N по­след­них про­ве­рок, если при по­мо­щи не­сколь­ких усло­вий про­ве­рить как со­от­но­сят­ся но­ме­ра ча­стиц, име­ю­щих ну­ле­вую и ми­ни­маль­ную по мо­ду­лю от­ри­ца­тель­ную ско­рость, а затем вы­ве­сти но­ме­ра всех ча­стиц кроме этих двух, цик­ла­ми типа:

for i:=1 to ineg-1 do write(i,' ' );

for i:=ineg+1 to zero-1 do write(i,' ' );

for i:=zero+1 to N do write(i,' ' );

Здесь рас­смот­рен самый про­стой слу­чай, когда ис­клю­ча­е­мые но­ме­ра не равны еди­ни­це и друг другу.

При­во­дим эф­фек­тив­ное ре­ше­ние Игоря Ку­да­ше­ва на Python 3.