SHARE
TWEET

two

a guest Apr 13th, 2014 144 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program V9;
  2. uses
  3. SysUtils;
  4. const n=10;
  5. var m:array [1..N] of shortint;
  6. i,j,k,L:integer; b,mi,mi1:shortint;
  7. begin
  8.      randomize;
  9.      L:=N;
  10.      for i:=1 to L do begin
  11.          m[i]:=random(11)-20;
  12.          write(m[i],' ')
  13.      end;
  14.      writeln;
  15. //тут
  16.      k:=1;
  17.      repeat
  18.            i:=1;
  19.            repeat
  20.                  mi:=m[i];
  21.                  mi1:=m[i+1];
  22.                  if mi = mi1 then begin
  23.                     for j:=i+1 to L-1 do m[j]:=m[j+1];
  24.                     dec(L);
  25.                     dec(i);
  26.                  end
  27.                  else if mi < mi1 then begin  
  28.                       b:=mi;
  29.                       mi:=mi1;
  30.                       mi1:=b;
  31.                       m[i]:=mi;
  32.                       m[i+1]:=mi1;
  33.                  end;
  34.                  inc(i);
  35.            until i>L-1;
  36.            inc(k);
  37.      until K>L-1;
  38. // тут
  39.      for i:=1 to L do  write(m[i],' ');
  40.      readln;
  41. 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
 
Top