рекурсия и массив

[Sparky]

Добрый вечер! Необходимо написать рекурсивную функцию поиска первого отрицательно элемента массива, написала какой-то бред

function first_otr(n:integer; var x:integer):integer;
begin
  if (a[n]<0) then x:=n
  else
  begin
    first_otr(n-1,x);
    if ((n<x) and (a[n]<0)) then x:=n;
  end;
end;

Как исправить?

[KobolD]

Незнаю как на паскале это будет выглядеть, но смысл такой что тебе надо в функцию передавать массив и номер текущего элемента, и если этот элемент не отрицательный то снова вызывать функцию с номером элемента увеличеным на единицу. Плюс еще делать проверочку на достижние конца массива. Функция должна возвращать номер отрицательного элемента массива.
Вот рабочий код на C#
Массив можно передавать по ссылке или сделать его область видимости глобальной, тогда можно его не передавать в качестве аргумента. Тут я его для наглядности таскаю за собой.

        static void Main(string[] args)
        {
            int[] A = { 4, 6, 3, 4, 3, 39 };
            int Ansver = FirsOtr(A,0); //начинаем перебор с нулевого элемента
        }

        static int FirsOtr(int[] Mas, int pos)
        {
            if (pos == Mas.Length)//достигнут коней массива а отр элемент не найден вернем -1
                return -1;
            else if (Mas[pos] < 0)//если элемент меньше нуля то возвращаем номер позиции
                return pos;
            else//Передаем в фунуцию след номер в массиве
                return FirsOtr(Mas, pos + 1);
        }

[GetMax]

Как вариант

function First_Otr(n,i:integer):integer;
begin
if Mas[i]<0 then
   begin
    if i=n then First_otr:=1
    else First_Otr:=i
   end
  else
   begin
    if i=n then First_Otr :=0
    else First_Otr:=First_Otr(n,i+1)
   end;
end;
Begin
  ....
   Writeln(Mas[First_Otr(10,1)]);
End.

[rrrFer]

int fst(int *a, int i, int n){
	if(i==n)
		return -1;
	if(a[i]<0)
		return i;
	return fst(a,i+1,n);
}