Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Mar 28th, 2012  |  syntax: Delphi  |  size: 0.67 KB  |  hits: 31  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var i,p,n: Integer; b: boolean; a: Array[1..5] of Integer;
  9. begin
  10.   randomize();
  11.   for i:=1 to Length(a) do
  12.   begin
  13.     a[i]:=random(1000);
  14.   end;
  15.   writeln('Input data: ');
  16.   for i:=1 to Length(a) do
  17.   begin
  18.     write(IntToStr(a[i])+' ');
  19.   end;
  20.  
  21.    n:= Length(a);
  22.  if n < 1 then exit;
  23.  repeat
  24.   b:= true;
  25.   Dec(n);
  26.   for i:= 0 to n do
  27.    if a[i] > a[i+1] then
  28.     begin
  29.      p:= a[i];
  30.      a[i]:= a[i+1];
  31.      a[i+1]:= p;
  32.      b:= false;
  33.     end;
  34.  until b;
  35.   writeln('');
  36.   writeln('Output data: ');
  37.   for i:=1 to Length(a) do
  38.   begin
  39.     write(IntToStr(a[i])+' ');
  40.   end;
  41.   readln(p);
  42. end.
create a new version of this paste RAW Paste Data