Const
 N=15;

Var
 X:Array[1..N] of Integer;
 a,b:Integer;
 i,Ia,Ib:byte;
 c:boolean;

Begin
 Randomize;
 Writeln('Initial array:');
 for i:=1 to N do
  begin
   X[i]:=-5+Random(10);
   Write(X[i]:4);
  end;
 Writeln;
 Writeln;
 c:=true;
 i:=0;
 Repeat
  i:=i+1;
 Until (X[i]<0) or (i=N);
 if X[i]<0 then
  begin
   a:=X[i];
   Ia:=i;
  end
 else
  begin
   c:=false;
   Writeln('No negative elements!');
  end;
 if c then
  begin
   i:=0;
   Repeat
    i:=i+1;
   Until (X[i]=0) or (i=N);
   if X[i]=0 then
    begin
     b:=X[i];
     Ib:=i;
    end
   else
    begin
     c:=false;
     Writeln('No zero elements!');
    end;
  end;
 if c then
  begin
   X[Ia]:=b;
   X[Ib]:=a;
   Writeln('New array:');
   for i:=1 to N do Write(X[i]:4);
  end;
 Readln
End.