Показать сообщение отдельно
  #4  
Старый 14.03.2008, 15:05
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Если я правильно понял:
Код:
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. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием