[Terio]

Подскажите пожалуйста, как мне реализовать следующее:

1) Объявляем числовой массив A[i].
2) Производим перебор от i=1 до n и сравниваем с произвольным числом k. В случае, когда i совпадет с k, значение i добавляем в массив.
3) Снова производим перебор i (от первого до n, но исключая число, что уже добавили в массив), сравниваем с другим произвольным числом l.
В случае, когда i совпадет с l, значение i добавляем в массив.
В массиве теперь два значения.
4)
И т.д.

Это не задачка из учебника, просто нужно для моего проекта.
Заранее спасибо.

[Rosenkrantz]

Я правильно понял, что добавление в массив происходит когда i = k? Вопрос - зачем перебор нужен? Почему сразу не добавлять k на нужное место в массиве?

[Terio]

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

[The Shadow]

Если я правильно понял:

Код:

var
Result: Array of Integer;
procedure GetNumbers(A: Array of Integer; Numbers: Array of Integer);
var
i, j: Integer;
begin
SetLength(Result, 0);
for i:=0 to Length(Numbers) - 1 do
for j:=0 to Length(A) - 1 do
if A[j] = Numbers[i] then
begin
SetLength(Result, Length(Result) + 1);
Result[Length(Result) - 1]:=j;
end;
end;

[Terio]

Спасибо! буду пробовать.