Подсчитать k – число отрицательных и m – число положительных компонент.

const
     VectorSize = 25;
type
     TVector = array [1..VectorSize] of Real;
var
     Vector: TVector;
     i: Byte;
 
function NegativeElementsCount(Vector: TVector): Byte;
var
     NegativeCounter: Byte;
begin
     NegativeCounter := 0;
     for i := 1 to VectorSize do
     begin
          if Vector[i] < 0 then
               Inc(NegativeCounter);
     end;
     NegativeElementsCount := NegativeCounter;
end;
 
function PositiveElementsCount(Vector: TVector): Byte;
var
     PositiveCounter: Byte;
begin
     PositiveCounter := 0;
     for i := 1 to VectorSize do
     begin
          if Vector[i] > 0 then
               Inc(PositiveCounter);
     end;
     PositiveElementsCount := PositiveCounter;
end;
 
function FirstPositiveIndex(Vector: TVector): Byte;
var
     FirstPositive: Byte;
begin
     for i := 1 to VectorSize do
     begin
          if Vector[i] > 0 then
          begin
               FirstPositive := i;
               break;
          end;
     end;
     FirstPositiveIndex := FirstPositive;
end;
 
begin
     Randomize();
     WriteLn('Ìàññèâ: ');
     for i := 1 to VectorSize do
     begin
          Vector[i] := Random(50) - 25;
          Write(Vector[i], ' ');
     end;
     WriteLn();
     
     WriteLn('Êîë-âî îòðèöàòåëüíûõ: ', NegativeElementsCount(Vector));
     WriteLn('Êîë-âî ïîëîæèòåëüíûõ: ', PositiveElementsCount(Vector));
     WriteLn('Íîìåð ïåðâîãî ïîëîæèòåëüíîãî: ', FirstPositiveIndex(Vector));
end.