Submission #3717240

---

Source Code Expand

var
  even,odd,n,i,j:longint;
  a:array[0..1000] of longint;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if a[i]<a[j] then begin a[0]:=a[i];a[i]:=a[j];a[j]:=a[0]; end;
  for i:=1 to n do
   if i mod 2=0 then even:=even+a[i]
                else odd:=odd+a[i];
  if even>odd then write(even)
              else write(odd);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result