fork download
  1. var i,t,j,n,m,k,sum,max,a,b,c : integer;
  2. s : array[1..100] of integer;
  3. begin
  4. readln(t);
  5. for i:=1 to t do
  6. begin
  7. readln(n, m);
  8. for j:=1 to n do begin read(s[j]); end;
  9. for a:=n+1 to m+n do begin read(s[a]); end;
  10. k:=n+m;
  11. max:=s[1];
  12. sum:=0;
  13. for b:=1 to k do begin if s[b] > max then max:=s[b]; end;
  14. for c:=1 to k do begin sum:=sum+s[c]; end;
  15. sum:=sum-max;
  16. writeln('Case ',i,': ',sum);
  17. end;
  18. end.
  19.  
Success #stdin #stdout 0s 9136KB
stdin
2 
1 1 
5 
3 
3 2 
9 11 4 
10 12
stdout
Case 1: 3
Case 2: 34