Submission #1986501

---

Source Code Expand

var
  i, j, t, n, k: int64;
  r: array[1..100] of int64;
  ans: extended;
begin
  read(n);
  readln(k);
  for i := 1 to n do
  begin
    read(r[i]);
  end;
  
  for i := 1 to n-1 do
  begin
    for j := i+1 to n do
    begin
      if r[j] < r[i] then
      begin
        t := r[i];
        r[i] := r[j];
        r[j] := t
      end;
    end;
  end;
  
  ans := 0.0;
  for i := n-k+1 to n do
  begin
    ans := (ans + r[i]) / 2.0;
  end;
  
  writeln(ans:12:12);
end.

Submission Info

Compile Error

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

Judge Result