125 2021. 01. 16 15:00:21 mraron Utazásszervezés (75 pont) pascal Elfogadva 75/75 4ms 2916 KiB 
Program szervezo;
  const maxn=10;
        maxc=10000;
  var n,k,m,c: integer;
      ig: array[1..maxc] of integer;
      sor: array[1..maxn] of integer;
      se,su,sdb,db: integer;
      i: integer;
begin
  readln(n,k,m,c);
  for i:=1 to c do read(ig[i]);
  readln;
  sdb:=0; se:=1; su:=0; db:=0;
  for i:=1 to c do  
  begin
    while (sdb>0) and (sor[se]<ig[i]) do
    begin
      inc(se); 
      if se>n then se:=1;
      dec(sdb);
    end;
    if sdb<n then
    begin
      inc(su); 
      if su>n then su:=1;
      inc(sdb);
      sor[su]:=ig[i]+m-1;
      inc(db);
    end;
  end;
  writeln(db);
end.
2 10 4 6
1 2 2 5 6 7
Részfeladat Összpont Teszt Verdikt Idő Memória
base 75/75
1 Elfogadva 0/0 3ms 1272 KiB
2 Elfogadva 0/0 4ms 1552 KiB
3 Elfogadva 3/3 2ms 1764 KiB
4 Elfogadva 4/4 2ms 1972 KiB
5 Elfogadva 4/4 2ms 2184 KiB
6 Elfogadva 4/4 2ms 2312 KiB
7 Elfogadva 4/4 2ms 2468 KiB
8 Elfogadva 4/4 2ms 2312 KiB
9 Elfogadva 5/5 2ms 2600 KiB
10 Elfogadva 5/5 3ms 2632 KiB
11 Elfogadva 6/6 3ms 2796 KiB
12 Elfogadva 6/6 3ms 2812 KiB
13 Elfogadva 6/6 3ms 2760 KiB
14 Elfogadva 6/6 4ms 2632 KiB
15 Elfogadva 6/6 4ms 2760 KiB
16 Elfogadva 6/6 4ms 2888 KiB
17 Elfogadva 6/6 4ms 2916 KiB