Если я правильно понял:
Код:
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;
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|