Advertisement
Guest User

Untitled

a guest
Dec 11th, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.64 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils;
  9.  
  10. var
  11.    N, i, j, Temp, Iteration: Integer;
  12.    UserArr: array of Integer;
  13. begin
  14.    Writeln('Enter N');
  15.    Readln(N);
  16.    SetLength(UserArr, N);
  17.    Iteration := N - 1;
  18.    for i := 0 to Iteration do
  19.       Read(UserArr[i]);
  20.    Readln;
  21.    for i := 1 to Iteration do
  22.    begin
  23.       j := i;
  24.       Temp := UserArr[i];
  25.       while (j > 0) and (Temp < UserArr[j - 1]) do
  26.       begin
  27.          UserArr[j] := UserArr[j - 1];
  28.          Dec(j)
  29.       end;
  30.       UserArr[j] := Temp
  31.    end;
  32.    for i := 0 to Iteration do
  33.       Write(UserArr[i], ' ');
  34.    Readln
  35. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement