NEERC/central/tests/do18.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 begin\r
   7         randseed := 17747747;\r
   8         n := 200;\r
   9 \r
  10         for i := 1 to n do begin\r
  11                 j := random(i) + 1;\r
  12                 a[i] := a[j];\r
  13                 a[j] := i;\r
  14         end;\r
  15 \r
  16         writeln(n);\r
  17         for i := 1 to n do begin\r
  18                 write(a[i]);\r
  19                 if (i < n) then\r
  20                         write(' ');\r
  21         end;\r
  22         writeln;\r
  23 end.