1.Дан массив, вывести с клавиатуры размерность. отрицательные числа массива разделить на 2 и вывести на экран. Пожалуйста помогите!

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.