Текущий архив: 2004.10.10;
Скачать: CL | DM;
Вниз
Рэндом число из массива Найти похожие ветки
← →
sexy (2004-09-27 21:24) [0]Имеется массив целых, некоторые элементы = 0. Подскажите алг, как взять случайный элемент массива, чтоб не трогать эти нули. т.е. любой но чтоб не был = 0.
← →
Vit@ly © (2004-09-27 21:34) [1]Randomize
If X[Random(N)] <> 0 then
begin
...
end
else;
← →
tormoz (2004-09-27 21:37) [2]
function TForm1.get():integer; //a:array[] of integer объявлен заранее
var i,j: integer;
b: array of integer;
begin
j:=1;
for i:=1 to length(a) do
begin
if a[i]<>0 then
begin
b[j]:=i;
j:=j+1;
end;
end;
result:=a[b[random(j)+1]];
end;
Страницы: 1 вся ветка
Текущий архив: 2004.10.10;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.048 c
