|
|
вернуться в форумHelp, please. All the tests from comments give correct answers, why 7 WA? Послано Artyom 12 ноя 2019 13:41 var i,k,n:longint; a:array[1..20] of longint; x:longint; s:longint; sum:longint; begin s:=0; readln(n); for i:=1 to n do begin read(a[i]); inc(sum, a[i]); end; for i:=1 to n-1 do begin for k:=i+1 to n do begin if a[i]>a[k] then begin x:=a[i]; a[i]:=a[k]; a[k]:=x; end; end; end; for i:=n downto 1 do begin if s+a[i]<=sum div 2 then inc(s,a[i]); end; writeln(abs(sum-2*s)); readln(); end. WA on the 7th test. Any ideas? Edited by author 12.11.2019 13:42 |
|
|