Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program sweets;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- n, m, min, i, k: integer;
- a: array [1..10001] of integer;
- begin
- readln (n, m);
- min := n + 1;
- k := 1;
- for i := 1 to n do begin
- readln (a[i]);
- end;
- while (m <> 0) do begin
- a[min] := 30001;
- for i := 1 to n do begin
- if (a[i] < a[min]) then
- min := i
- else if (a[i] = a[min]) then
- inc (k);
- end;
- if (k = n) and (m > n) then begin
- for i := 1 to n do begin
- a[i] := a[i] + m div n;
- end;
- k := 1;
- m := m mod n;
- min := n + 1;
- continue;
- end;
- k := 1;
- m := m - 1;
- inc (a[min]);
- min := n + 1;
- end;
- min := 1000000;
- for i := 1 to n do begin
- if (a[i] < min) then
- min := a[i];
- end;
- writeln (min);
- readln;
- readln;
- end.
RAW Paste Data