Рекурсия Паскаль

[GamBitFRK]

Написать рекурсивную функцию нахождения четных элементов массива

[GamBitFRK]

Нахождения количества четных элементов в массиве

[GreenWizard]

навскидку:

type
  AArray = array[0..N] of Integer;

function OddCount(const Arr: AArray; const Count: Integer): Integer;
begin
  Result := 0;
  if Count > 0 then
    begin
      if Odd(Arr[Count - 1]) then
        Result := 1;

      Result := Result + OddCount(Arr, Count - 1);
    end;
end;

как использовать:

const N = 55;

var
  Mass: AArray;
...........
заполняем  массив
...........
Writeln('Чётных ', OddCount(Mass, N) );
end.

[GamBitFRK]

спасибо)))))