Program suijishu;
{$ Apptype console}
VAR
I, J, R, N, M: Integer;
All: Array [0..1000] of integer; // This array is used to install random number
Result: array [0..1000] of integer; // This array is used to load results
Begin
Writeln ('Please enter M, N, generate M random number "within the N-range);
Readln (M, N);
IF n
Writeln ('wrong .. The size is fell!')
Else
Begin
For i: = 0 to N-1 DO
All [i]: = i;
// Generate M random number
For i: = 0 to m-1 do
Begin
J: = random (n);
R: = J MOD (N-1-I);
Result [I]: = all [r];
All [r]: = all [n-1-i];
END;
For i: = 0 to m-1 do
Begin
Write (Result [i], '');
END;
End; WriteLn;
Writeln ('Press Enter to Q]!');
READLN;
End.
