На главную

Назад

//Функция возвращает индекс>=0 если элемент (integer) найден или -1 если не найден
function findint(i1:integer; a:array of integer):longint;
var n1:longint;
begin
 findint:=-1;
 for n1:=0 to length(a) do
 begin
 if i1=a[n1] then
  begin
   findint:=n1;
   exit;
  end;
 end;
end;