Удаление из массива

[Dennis777]

ребят, подскажите кратко реализацию. Знаю, что в гугле полно ссылок, но сижу с телефона, ей богу не удобно смотреть(

Допустим у меня в массиве есть 5 элементов. числа от 1 до 5. По нажатию на кнопку нужно случайным образом выбрать один элемент, выбрать для него соответствующее действие и после этого элемент удалить из массива, чтобы при следующем нажатии на кнопку он не появился.

А когда все элементы будут удалены, вернуть все элементы на места и начать по новой

[[Jank]]

И так:
1) Создаешь форму. Кидаешь на нее кнопку для создания массива, кнопку для выбора рандомного числа и его удаления, других действий.
2) Создаешь сам массив.
3) Делаешь его копию, которая будет возвращать все значения.

профит. Чтобы было быстрее, выложи свои нароботки. Тогда и с кодом помогут.

[Dennis777]

var
r: array [1..16] of integer;

procedure TForm12.Image2Click(Sender: TObject);
var
i,a:integer;
begin
randomize;
i:=1+random(16);
a:=r[i];


А вот как именно удалить из массива значение?

[[Jank]]

Ну, начнем с того, что заполнения массива не верно. Вот правильный код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 Label1.Caption:=' ';
 randomize;
 For i:=1 to 5 do r[i]:=random(5)+1; //заполняем массив.
 For i:=1 to 5 do r_copy[i]:=r[i]; //заполняем копию.
 For i:=1 to 5 do
 
 begin
  Label1.Caption:=Label1.Caption+' '+IntToStr(r[i]);
 end;
 Button1.Enabled:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,i1:integer;
begin
 Label1.Caption:=' ';
 For i:=1 to 5 do
  begin
  Label1.Caption:=Label1.Caption+' '+IntToStr(r[i]);
 end;
 Button1.Enabled:=True;
end;

Над удалением пока работаю.