a guest Dec 16th, 2018 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   i:=1;
  2.   while i<=n do
  3.   begin
  4.     if prch[i]=0 then
  5.     begin
  6.       for j:=i+1 to n do
  7.         prch[j-1]:=prch[j];
  8.       n:=n-1;
  9.     end
  10.     else
  11.       i:=i+1;
  12.   end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand