Воплотить функцию либо функцию, реализующую последующие операции над одномерными массивами.

Free Pascal

procedure Println(a:array of integer);
var
  i:integer;
begin
  for i:=0 to Length(a)-1 do Write(a[i],' ');
  Writeln
end;

procedure Ex1(var a:array of integer; var nn,np:integer);
var
  i:integer;
begin
  nn:=0; np:=0;
  for i:=0 to Length(a)-1 do
    if a[i]lt;0 then begin a[i]:=0; Inc(nn) end
    else
      if a[i]gt;0 then begin a[i]:=1; Inc(np) end
end;

var
  a:array of integer;
  i,n,kp,kn:integer;
begin
  Randomize;
  Write('Количество частей: '); Read(n);
  SetLength(a,n);
  for i:=0 to n-1 do a[i]:=Random(41)-20;
  Println(a);
  Ex1(a,kn,kp);
  Writeln('Отрицательных ',kn,', положительных ',kp);
  Println(a)
end.

Во вложении - пример работы программки.