program criminalb(input,output);
var
 n,m,k:longint;
 evil:array[1..1000]of integer;
 a:array[1..1000,1..2]of integer;
 f:array[0..50000]of longint;
 p:array[0..50000]of longint;
 i,j,x,t:longint;
 ans1,ans2:longint;

begin
 assign(input,'criminalb.in');
 reset(input);
 readln(n,m,k);
 for i:=1 to n do read(evil[i]);
 readln;
 for i:=1 to m do
 begin
  readln(x);
  if x>0 then inc(a[x,1]);
  if x<0 then inc(a[-x,2]);
 end;
 close(input);

 assign(output,'criminalb.out');
 rewrite(output);

 for i:=1 to n do
  for j:=k downto a[i,2] do
  if(f[j-a[i,2]]+evil[i]>f[j]) then f[j]:=f[j-a[i,2]]+evil[i];
 writeln(f[k]);

 for i:=1 to k do f[i]:=32767;

 for i:=1 to n do
  for j:=k downto a[i,1] do
  if(f[j-a[i,1]]+evil[i]<f[j]) then f[j]:=f[j-a[i,1]]+evil[i];
 writeln(f[k]);

 close(output);
end.