Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.045 c