одномерные массивы, Не могу разобраться с задачей Опции

[Eichhorn]

Дан массив размера N. После каждого отрицательного элемента вставить элемент с нулевым значением.

Вот мой текст программы:

const
n=10;
var
a:array[1..n*2] of integer;
i,s,t,j,sc:integer;


begin
t:=0;
sc:=0;
randomize;

for i:=1 to n do
        begin
        a[i]:=random(101)-50;
        writeln(a[i]);
        readln;
        end;

for i:=1 to n do
begin
if a[i]<0 then
        begin
        sc:=sc+1;
        s:=i;
        for j:=n+sc downto s-1 do
        a[j]:=a[j-1];
        a[s]:=t;
        end;
end;
for i:=1 to 2*n do
writeln(a[i]:6);
readln;
end.

В лучшем случае эта программа рандомно заполняет массив нулями, заменяя также отрицательные элементв на нули. Делала по задаче из лекции, которую нам давали. Вот она:

Type
	mass=array[1..21] of real;
Var
	a: mass;
	i, j , i_max : integer;
	t, max : real;
Begin
randomize;
writeln (‘ Массив A ‘);
for i:=1 to 20 do 
	begin
	a[ i ]:=(random(201)-80)/(random(100)+1);
	write (a[ i ]:6:2);
	end;
readln (t);
max:=a[1];
i_max:=1;
for i:=2 to 20 do 
	if a[ i ]>max then
begin
	max:=a[ i ];
	i_max:=i
	end;
for j:=21 downto i_max-1 do		
	a[ j ]=a[ j-1 ];
a[i_max]=t;
writeln (‘ Массив A c включенным 
элементом t ‘);
for i:=1 to 21 do
	 write (a[ i ]:6:2)
End.

Здесь находили в массиве элемент с максимальным значением и после него ставили число t.

[Lapp]

Вот, смотри:

const
  n=10;
var
  a:array[1..n*2] of integer;
  i,j,m:integer;

begin
  randomize;
  for i:=1 to n do begin
    a[i]:=random(101)-50;
    write(a[i]:4);
  end;
  WriteLn;
  m:=n;
  for i:=n downto 1 do begin
    if a[i]<0 then begin
      for j:=m downto i+1 do a[j+1]:=a[j];
      a[i+1]:=0;
      Inc(m)
    end
  end;
  for i:=1 to m do write(a[i]:4);
  readln;
end.

Тут существенно, что мы проходим ОБА цикла СВЕРХУ ВНИЗ.
Остальное просто. Задавай вопросы, если непонятно.

[Eichhorn]

Спасибо огромное!!! Разобралась. Но сама до такого точно не додумалась бы. Я пыталась включить в цикл то, что было в задаче из лекции, а всё оказалось намного проще
Ещё раз огромное спасибо!