Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program sweets;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- n, m, min, i: integer;
- a: array [1..10001] of integer;
- begin
- readln (n, m);
- min := n + 1;
- a[min] := 30001;
- for i := 1 to n do begin
- readln (a[i]);
- end;
- while (m <> 0) do begin
- for i := 1 to n do begin
- if (a[i] <= a[min]) then
- min := i;
- end;
- m := m - 1;
- inc (a[min]);
- 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