[YVitaliy]

Сообщение от Nevil_White

[a]http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D 0%BA%D0%B0_%D1%81%D0%BB%D0%B8%D1%8F%D0%BD%D0%B8%D0 %B5%D0%BC[/a] извините забыл

Эт че?

Код:

procedure randomizearray(var arr:array of integer);
var i,j, l:Integer;
 procedure exchange(var _arr:array of integer; const a1, a2:integer);
 var i:integer;
 begin
  i:=_arr[a1];
  _arr[a1]:=_arr[a2];
  _arr[a2]:=i;
 end;
begin
 randomize;
 l:=high(arr) - low(arr);
 for i:=low(arr) to high(arr) do
 begin
   j:=low(arr) + random(l);
   exchange(arr, i, j);
 end;
end;