массив размера n

[Mad_Cat]

rus12,а зачем вы людей в заблуждение вводите своим неправильным кодом7
потому вот это

write(a[i]:3,'0')

не есть

Преобразовать его, вставив после каждого отрицательного элемента нулевой элемент.

[Avvakymova]

Спасибочки тебе огромнейшее!!!

[rus12]

Сообщение от Mad_Cat

rus12,а зачем вы людей в заблуждение вводите своим неправильным кодом7
потому вот это

write(a[i]:3,'0')

не есть

В задании сказано вставить ,а не заменить.
А что тогда по вашему означает вставить?

[Mad_Cat]

вставить означает
был массив

-3 2 3 4 5 -3

из 6 элементов
должен стать

-3 0 2 3 4 5 -3 0

из 8 элементов
именно стать таким) а не вывести после отрицательных 0 как это сделано у вас

[rus12]

я сделал как понял задание

[rus12]

Тогда такой вариант

const
  n=10;
  var
  a:array[1..n] of integer;
  i:integer;
  begin
    randomize;
    for i:=1 to n do
      begin
       a[i]:=random(10)-5;
       write(a[i]:3);
      end;
      writeln;
    for i:=1 to n do
      begin
        if a[i]<0  then
         begin
          write(a[i]:3);
          a[i]:=0;
          write(a[i]:3);
         end
        else
          write(a[i]:3);
      end;
  readln;
end.

[Mad_Cat]

опять не то ) в конце из массива

-3 2 3 4 5 -3

у тя получится

0 2 3 4 5 0

а должен напоминаю

-3 0 2 3 4 5 -3 0

[rus12]

для начала код в компиляторе проверь

[Mad_Cat]

для начала код в компиляторе проверь

я тебе говорю не про твой вывод а про сам массив измененный
Добавь перед последним end.

for i:=1 to n do write(a[i]:3);

и убедись

[rus12]

 if a[i]<0  then
         begin
          write(a[i]:3);
          a[i]:=0;
          write(a[i]:3);
         end
        else
          write(a[i]:3);

если число отрицательное: выводится сначала отрицательное число ,затем приравнивается к 0, и потом выводится 0 .
если положительное выводится просто само число