Ос­нов­ное мно­же­ство со­сто­ит из всех зна­че­ний ско­ро­стей, кроме 0, если он встре­ча­ет­ся, и кроме ми­ни­маль­но­го нечётного зна­че­ния, если таких зна­че­ний нечётное число.

Про­грам­ма чи­та­ет все вход­ные дан­ные один раз. не за­по­ми­ная все вход­ные дан­ные в мас­си­ве, раз­мер ко­то­ро­го равен N. Во время чте­ния дан­ных за­по­ми­на­ет­ся номер 0. если он встре­тит­ся (по усло­вию все зна­че­ния раз­лич­ны, по­это­му 0 встре­ча­ет­ся не боль­ше од­но­го раза), под­счи­ты­ва­ет­ся ко­ли­че­ство нечётных зна­че­ний и ищет­ся ми­ни­маль­ное нечётное зна­че­ние. После окон­ча­ния ввода рас­пе­ча­ты­ва­ют­ся все но­ме­ра, кроме но­ме­ра 0 и но­ме­ра ми­ни­маль­но­го нечётного зна­че­ния, но толь­ко в слу­чае, если их ко­ли­че­ство нечётно.

Баллы на­чис­ля­ют­ся толь­ко за про­грам­му, ко­то­рая ре­ша­ет за­да­чу хотя бы для од­но­го част­но­го слу­чая. Ниже при­ве­де­ны при­ме­ры ре­ше­ния за­да­ния на язы­ках Пас­каль и Бей­сик. До­пус­ка­ют­ся ре­ше­ния, за­пи­сан­ные на дру­гих язы­ках про­грам­ми­ро­ва­ния.

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Пас­каль

var n,i,j,k,c,min,a: longint;

begin

readln(n);

min := 1000000001;

k := 0;

j := 0;

c := 0;

for i:=1 to n do begin

readln(a);

if a = 0

then j := i;

if a mod 2 <> 0

then

begin

c := c + 1;

if a < min

then begin

min := a;

k := i;

end;

end;

end;

for i := 1 to n do

if (i <> j) and ((c mod 2 = 0) or (i <> k)) then write(i, ' ');

end.

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Бей­сик

INPUT n

min = 0

k = 0

j = 0

c = 0

FOR i = 1 TO n

INPUT a

IF a = 0 THEN j = i

IF a mod 2 <> 0 THEN

c = c + 1

IF (min = 0) OR (a < min) THEN

min = a

k = i

END IF

END IF

NEXT i

FOR i = 1 TO n

IF (i <> j) AND ((c MOD 2 = 0) OR (i <> k)) THEN PRINT i

NEXT i

END

При­ме­ча­ние. Ре­ше­ние по­стро­е­но в пред­по­ло­же­нии, что ноль не вхо­дит в ос­нов­ное под­мно­же­ство.