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

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

var p:array[1..1000] of integer;

c,c1:char;

i,j,N,K:integer;

name:string;

time1,time2:integer;

begin

readln(N,K);

for i:=1 to K do

p[i]:=0;

for i:=1 to N do

begin

name:='';

repeat

read(c);

name:=name+c

until c=' '; {счи­та­на фа­ми­лия}

read(c,c1); {счи­та­ны часы пер­во­го вре­ме­ни}

time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

read(c,c,c1); {про­пу­ще­но двое­то­чие, и счи­та­ны ми­ну­ты}

time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

read(с,c,c1); {счи­та­ны часы вто­ро­го вре­ме­ни}

time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {про­пу­ще­но двое­то­чие, и счи­та­ны ми­ну­ты}

time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

for j:=1 to K do

if p[j]<=time1 then

begin

p[j]:=time2;

writeln(name,' ',j);

break;

end;

end;

end.

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

DIM p(1000) AS INTEGER

DIM s AS STRING

DIM nm AS STRING

INPUT n

INPUT k

FOR i = 1 TO k

p(i) = 0

NEXT i

FOR j = 1 TO n

LINE INPUT s

c$ = MID$(s, 1, 1)

i = 1

WHILE NOT (c$ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

nm = MID$(s, 1, i)

time1 = (ASC(MID$(s, i + 1, 1)) - ASC("0")) * 60 * 10

time1 = time1 + (ASC(MID$(s, i + 2, 1)) - ASC("0")) * 60

time1 = time1 + (ASC(MID$(s, i + 4, 1)) - ASC("0")) * 10

time1 = time1 + (ASC(MID$(s, i + 5, 1)) - ASC("0"))

time2 = (ASC(MID$(s, i + 7, 1)) - ASC("0")) * 60 * 10

time2 = time2 + (ASC(MID$(s, i + 8, 1)) - ASC("0")) * 60

time2 = time2 + (ASC(MID$(s, i + 10, 1)) - ASC("0")) * 10

time2 = time2 + (ASC(MID$(s, i + 11, 1)) - ASC("0"))

FOR i = 1 TO k

IF time1 >= p(i) THEN

p(i) = time2

PRINT nm, i

GOTO 10

ENDIF

NEXT i

10 NEXT j

END