25.04.2008, 15:18
|
|
Познающий
Регистрация: 22.02.2008
Сообщений: 62
С нами:
9587964
Репутация:
52
|
|
Код:
Randomize;
For i:=0 to 24 do
Begin
X:=random(99-i);
B[i]:=a[x];
A[x]:=a[99-i];
End;
Где а - массив со 100 числами, b - 25 которые нужно получить, i,x - целые числа.
Последний раз редактировалось De-visible; 27.04.2008 в 11:59..
Причина: теги [code] забыл...
|
|
|