program vd;

uses crt;

var a:array[1..10000] of integer;

   i,j,max,min,n,k,h,h1,dem,t : integer;

procedure xoamax(max:integer);

  begin

    t:=n-1;

    for j:=h to t do a[j] := a[j+1];

    n:=n-1;

   end;

procedure xoamin(min:integer);

  begin

    t:=n-1;

    for j:=h1 to t do a[j] := a[j+1];

    n:=n-1;

  end;

begin

  read(n); readln(k);

  for i:=1 to n do read(a[i]);

  i:=1;

  dem:=1;

  while i<= k do

   begin

     min:=10000;

     max:=0;

     h:=0;

     h1:=0;

     for j:=1 to n do

      begin

        if a[j] > max then

         begin

          max:=a[j];

          h:=j;

         end;

        if a[j] < min then

         begin

          min:=a[j];

          h1:=j;

        end;

      end;

     if dem mod 2 <> 0 then  xoamin(min)

     else xoamax(max);

     inc(dem);

     inc(i);

     n:=t;

   end;

t:=0;

for i:=1 to n do t:=t+a[i];

write(t);

end.