Вопрос Как произвольно заполнить массив числами 0,1,5,11 на языке Delphi ?

[lekan09]

Как произвольно заполнить массив числами 0,1,5,11 на языке Delphi ?

 

[Fallout]

рандом тебя спасет

 

[HHPP]

const c: array [0..3] of integer=(0,1,5,11); var a: array [0..100]of integer; for i:=0 to 100 do a:=c[random(4)];