fork download
copy 
  1. program qq;
  2. {$APPTYPE CONSOLE}
  3. {$O-}
  4. uses
  5.   SysUtils;
  6. var
  7.   a:array [1..25] of integer;
  8.   i,n,m,s1,s2,ans: integer;
  9. begin
  10.  
  11.   read(n);
  12.   for i := 1 to n do
  13.     read(a[i]);
  14.   ans := maxint;
  15.   for m := 0 to (1 shl n) - 1 do begin
  16.     s1 := 0;
  17.     s2 := 0;
  18.     for i := 1 to n do begin
  19.       if (m shr(n - i) and 1) = 1 then
  20.         s1 := s1 + a[i]
  21.       else
  22.         s2 := s2+a[i];
  23.     end;
  24.     if ans > abs(s1 - s2) then
  25.       ans := abs(s1 - s2);
  26.   end;
  27.   writeln(ans);
  28. end.
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/Z6dtz
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!