Advertisement
Guest User

Untitled

a guest
Jul 17th, 2019
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  1. uses crt;
  2.  
  3. const
  4. MAX = 10010;
  5.  
  6. var
  7. a: array [1..MAX] of integer;
  8. n, k, i, j: integer;
  9. l, r, m, cow : integer;
  10.  
  11. procedure check;
  12. var
  13. i: integer;
  14. begin
  15. for i := 2 to n do
  16. if a[i] - a[j] >= m then begin
  17. j := i;
  18. inc(cow);
  19. end;
  20. if cow >= k then
  21. l := m + 1
  22. else
  23. r := m;
  24. end;
  25.  
  26. begin
  27. readln(n, k);
  28. for i := 1 to n do
  29. read(a[i]);
  30. l := 0;
  31. r := a[n] - a[1];;
  32. while r - l <> 0 do begin
  33. j := 1;
  34. cow := 1;
  35. m := (l + r) div 2;
  36. //writeln();
  37. check;
  38. end;
  39. writeln(l - 1);
  40. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement