Рэндом число из массива

← →
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;

Рэндом число из массива Найти похожие ветки