liczby losowe - pascal

Question

cześć,

 

Mam problem z liczbami losowymi, chciałbym żeby liczby nie były losowane przypadkowo (random(2-80)), tylko liczby były wybierane z podanych 10, 15, 20, 25, 30, żeby te liczby były tylko losowane. Nie wiem jak to uzyskań

Answer 1

Tworzysz tablicę, wypełniasz ją liczbami do wylosowanie. Losujesz liczbę z zakresu <początek_tablicy, index_ostatniego_elementu> i poprzez nią odwołujesz się do tablicy.

type Table = array[0..10] of integer;
var table: Table;
var index: integer;

begin

table[0]:=34; {itd.}
index := Random(10-0+1)+0; 

{ a teraz table[index] } 

end;

Zakresy losowania masz TUTAJ