Программа

CONST QuantityElement=25;   { Количество элементов вектора }
TYPE ElementType=real;  { Тип элементов вектора }
     VectorType=array [1..QuantityElement] of ElementType; { Вектор-тип }
VAR Vector:VectorType; { Вектор }

PROCEDURE InputVector (var B:VectorType); { Процедура ввода вектора }
  Var i:word; { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл ввода элементов вектора }
      begin
        Write('Введите элемент [',i,'] ');
                                 { Вывод приглашения ввести элемент вектора }
        ReadLn(B[i]);   { Ввод элемента вектора }
      end
  End;

PROCEDURE OutputVector (B:VectorType); { Процедура вывода вектора }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to QuantityElement do { Цикл вывода вектора }
      Write (B[i]:8:2,'  ');  { Вывод элемента вектора }
    WriteLn  { Вывод конца строки }
  End;

FUNCTION GetQuantityNegative (B:VectorType):word;
                        { Функция подсчета отрицательных элементов вектора }
  Var i:word;   { Счетчик }
      Q:word; { Количество отрицательных элементов }
  Begin
    Q:=0; { Начальное определение количества отрицательных элементов }
    for i:=1 to QuantityElement do { Цикл просмотра вектора }
      if B[i]<0   { Сравнение текущего элемента вектора }
      then Q:=Q+1; { Набор количества }
    GetQuantityNegative:=Q { Определение значения функции }
  End;

BEGIN
  WriteLn; { Пропуск строки }
  InputVector(Vector); { Ввод вектора }
  WriteLn; { Пропуск строки }
  WriteLn(' Последовательность: ');  { Вывод заголовка }
  OutputVector(Vector); { Вывод вектора }
  WriteLn; { Пропуск строки }
  WriteLn('Количество отрицательных элементов последовательности ',GetQuantityNegative(Vector));
         { Получение и вывод количества отрицательных элементов вектора }
END.