NEERC/central/tests/do34.dpr

   1 const\r
   2         maxn = 1000;\r
   3 var\r
   4         i, j, n: longint;\r
   5         a: array [1..maxn] of longint;\r
   6 \r
   7 procedure put(x, y: longint);\r
   8 var\r
   9         i, t: longint;\r
  10 begin\r
  11         for i := 1 to n do begin\r
  12                 if a[i] = x then begin\r
  13                         t := a[i]; a[i] := a[y]; a[y] := t;\r
  14                         exit;\r
  15                 end;\r
  16         end;\r
  17 end;\r
  18 \r
  19 begin\r
  20         randseed := 30747747;\r
  21         n := 200;\r
  22 \r
  23         for i := 1 to n do begin\r
  24                 j := random(i) + 1;\r
  25                 a[i] := a[j];\r
  26                 a[j] := i;\r
  27         end;\r
  28 \r
  29         put(1, n);\r
  30         put(2, n div 2);\r
  31         put(n - 1, n div 2 + 1);\r
  32         put(n, 1);\r
  33 \r
  34         writeln(n);\r
  35         for i := 1 to n do begin\r
  36                 write(a[i]);\r
  37                 if (i < n) then\r
  38                         write(' ');\r
  39         end;\r
  40         writeln;\r
  41 end.