Содержание верного ответа и указания по оцениванию
(допускаются иные формулировки ответа, не искажающие его смысла)
Программа верно читает входные данные, сразу запоминая только время
окончания хранения багажа в массиве, соответствующем ячейкам камеры
хранения. Подходящая ячейка определяется путём последовательного
просмотра элементов этого массива до первого свободного или такого, в
котором записано время окончания хранения, не превосходящее текущего
времени сдачи очередного багажа. В случае удачного выбора ячейки фамилия
и номер ячейки распечатываются. Баллы начисляются только за программу,
которая решает задачу хотя бы для частного случая. Время можно как
переводить в минуты, так и хранить в виде строки, сравнивая затем строки
непосредственно. В последнем случае упрощается ввод данных.
Пример правильной программы
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.