Submission #2798596

---

Source Code Expand

program AT795;
 var
  a:array[0..101] of longint;
  i,j,k,n,t:longint;
  ssum:real;
 begin
  readln(n,k);
  for i:=1 to n do
   read(a[i]);
  readln;
  for i:=1 to n do
   for j:=i+1 to n do
    if a[i]>a[j] then
     begin
      t:=a[i];
      a[i]:=a[j];
      a[j]:=t;
     end;
  ssum:=0;
  for i:=n-k+1 to n do
   ssum:=(ssum+a[i])/2;
  writeln(ssum:0:7);
 end.

Submission Info

Compile Error

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

Judge Result