var
  a: array of integer;
  n, i: integer;
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);
  Setlength(a, n);
  writeln('Массив: ');
  for i := 0 to n - 1 do
   begin
    a[i] := random(21) - 10;
    write(a[i]:5);
   end;
  writeln;
  writeln('Результат деления отрицательных элементов на 2: ');
  for i := 0 to n - 1 do
  begin
    if a[i] < 0 then write(a[i] / 2:5)
    else write(a[i]:5)
  end;
end.