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

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

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