barn1.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 49 行

{
ID:maigoak1
PROG:barn1
}

program barn1;
const
  maxs=200;
var
  fin,fout:text;
  stall:array[1..maxs]of integer;
  interval:array[1..maxs]of integer;
  m,s,c,i,j,total,cover,tmp:integer;
begin
  assign(fin,'barn1.in');
  reset(fin);
  readln(fin,m,s,c);
  for i:=1 to c do
    readln(fin,stall[i]);

  for i:=1 to c-1 do
    for j:=i+1 to c do
      if stall[i]>stall[j] then begin
        tmp:=stall[i];stall[i]:=stall[j];stall[j]:=tmp;
      end;

  total:=0;
  for i:=1 to c-1 do
    if stall[i+1]-stall[i]>1 then begin
      inc(total);
      interval[total]:=stall[i+1]-stall[i]-1;
    end;

  for i:=1 to total-1 do
    for j:=i+1 to total do
      if interval[i]<interval[j] then begin
        tmp:=interval[i];interval[i]:=interval[j];interval[j]:=tmp;
      end;

  cover:=stall[c]-stall[1]+1;
  for i:=1 to m-1 do
    cover:=cover-interval[i];

  assign(fout,'barn1.out');
  rewrite(fout);
  writeln(fout,cover);
  close(fout);
end.