Листинг программ

program z10;

{Дан одномерный массив размерностью N из положительных и

отрицательных чисел .Упорядочить так ,чтобы в начале распола-

гались все отрицательные ,а затем все положительные ,сохранив порядок

следования и не создавая новый массив.}

uses crt;

var a:array[1..100]of longint;

    i,j,n,k,l:longint;

 begin

  clrscr;

   write('Введите кол-во элм таблицы:');readln(n);

   for i:=1 to n do

    begin

     write('a[',i,']=');readln(a[i]);

    end;

   j:=1;

   for i:=1 to n do

    if a[i]<0 then begin

                    l:=a[i];for k:=i downto j do

                    a[k]:=a[k-1];a[j]:=l;inc(j);

                   end;

   for i:=1 to n do write(a[i],' ; ');readln;

 end.