LakSar_1

Var
    X, NM, PM: Array [1..25] Of Integer;
    I, J, ZC, T: Integer;
Begin
    Randomize;
    For I:= 1 To 25 Do Begin
      X[I]:= Integer(Random(161)) - 60;
      If X[I] < 0 Then
        NM[I]:= X[I]
      Else If X[I] > 0 Then
        PM[I]:= X[I]
      Else
        Inc(ZC);
    End;
    For J:= 1 To 24 Do
      For I:= 1 To 25 - J Do Begin
        If NM[I] < NM[I + 1] Then Begin
          T:= NM[I]; NM[I]:= NM[I + 1]; NM[I + 1]:= T;
        End;
        If PM[I] > PM[I + 1] Then Begin
          T:= PM[I]; PM[I]:= PM[I + 1]; PM[I + 1]:= T;
        End;
      End;

    J:= 1;
    For I:= 25 DownTo 1 Do If NM[I] <> 0 Then Begin
      X[J]:= NM[I]; Inc(J);
    End;
    For J:= J To J + ZC Do X[J]:= 0;
    For I:= 1 To 25 Do If PM[I] <> 0 Then Begin
      X[J]:= PM[I]; Inc(J);
    End;
    WriteLn(ZC);

    For I:= 1 To 25 Do Write(X[I], ' ');
    ReadLn;
End.