program xxxx;
var i,j,n,m,k,w,x,y:longint;
    f:array[1..1000,0..4] of longint;
    fx,a,fy:array[0..50000] of longint;

begin
  assign(input,'criminalb.in');
  reset(input);
  assign(output,'criminalb.out');
  rewrite(output);
  read(n,m,k);
  x:=0;
  y:=0;
  for i:=1 to n do
    read(f[i,0]);
  for i:=1 to n do
    begin
      f[i,1]:=0;
      f[i,2]:=0;
      f[i,3]:=0;
      f[i,4]:=0;
    end;
  for i:=1 to m do
    begin
      read(a[i]);
      if a[i]>0 then
        inc(f[a[i],1])
      else
        begin
          w:=-a[i];
          inc(f[w,2]);
        end;
    end;
  for i:=1 to k do
    for j:=1 to n do
      if f[j,3]<>1 then
      if i-f[j,2]>=0 then
        if (fx[i-1]<fx[i-f[j,2]]+f[j,0]) then
          begin
            fx[i]:=fx[i-f[j,2]]+f[j,0];
            f[j,3]:=1;
          end
        else
          if fx[i]<fx[i-1] then
            fx[i]:=fx[i-1];
  for i:=1 to k do
    for j:=1 to n do
      if f[j,4]<>1 then
      if i-f[j,1]>=0 then
        if (fy[i-1]<fy[i-f[j,1]]+f[j,0]) then
          begin
            fy[i]:=fy[i-f[j,1]]+f[j,0];
            f[j,4]:=1;
          end
        else
          if fy[i]<fy[i-1] then
            fy[i]:=fx[i-1];
  writeln(fx[k]);
  write(fy[k]);
  close(input);
  close(output);
end.