Рекурсия

[Homutova_Julia]

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

function TForm1.KQ(N: Byte; var X: array of integer; var K: Byte): byte;
  Begin
If N>=0 then begin K:=0; Exit end;
KQ(N-1, X, K);
If X[N]<0 then K:=K+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X: array of integer;
  found:boolean;
  n:byte;
  k:byte;
begin
Label2.Caption:=' ';
  for n:=Low(x) to High(x) do  begin
        k:=0;
    if X[n]<0 then k:=k+1 else exit;
     end;
           Label2.Caption:=IntToStr(TForm1.KQ(x));
          end;

При компиляции возникает ошибка [Error] Unit1.pas(67): Incompatible types: 'Byte' and 'dynamic array'.
Помогите, пожалуйста, найти в чем именно у меня ошибка и исправить ее.

[mss]

в чем именно у меня ошибка

Ты считать не умеешь - вот в чем ошибка.

В формальном объявлении ф-ции

function TForm1.KQ(N: Byte; var X: array of integer; var K: Byte): byte;

сколько и КАКОГО ТИПА (в порядке перечисления) параметров ?

А в фактическом вызове

TForm1.KQ(x)

сколько и каких ?

Подумай головой ...

[Serge_Bliznykov]

Юля,
получите решение и разберитесь в нём.

function KQ(N: Integer; var X: array of integer): byte;
Begin
  If N<0 then KQ:=0
  else begin
    if X[N]<0 then
      KQ := KQ(N-1, X) + 1
    else
      KQ := KQ(N-1, X);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  X: array of integer;
  found:boolean;
  i : integer;
  n : integer;
begin
  // создадим массив X на 10 элементов
  n := 10;
  SetLength(X, n);

  Randomize;
  // заполним массив случайными числами от -10 до +10
  for i:=0 to n-1 do
    X[i] := Random(21)-10;

  // для отладки выведем содержимое массива в memo1
  Memo1.Lines.Clear;
  for i:=0 to n-1 do Memo1.Lines.Append('X['+IntToStr(i)+'] = '+IntToStr(X[i]));

  Label2.Caption:='количество отрицательных = '+IntToStr( KQ(n-1, x) );
end;

[Homutova_Julia]

Спасибо большое