program PositiveElementsChange;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MAX_SIZE = 100;

var
  X: array[1..MAX_SIZE] of Integer;
  N: Integer;
  NegativeCount: Integer;
  i: Integer;

begin
  // Ввод размера массива
  Write('Введите количество элементов массива (от 1 до 100): ');
  ReadLn(N);

  // Ввод элементов массива
  for i := 1 to N do
  begin
    Write('Введите элемент X[', i, ']: ');
    ReadLn(X[i]);
  end;

  // Обработка массива и подсчет отрицательных элементов
  NegativeCount := 0;
  for i := 1 to N do
  begin
    if X[i] > 0 then
      X[i] := X[i] div i
    else
      Inc(NegativeCount);
  end;

  // Вывод результатов
  WriteLn('Изменённый массив:');
  for i := 1 to N do
    WriteLn('X[', i, '] = ', X[i]);

  WriteLn('Количество отрицательных элементов: ', NegativeCount);

  ReadLn;
end.