Одномерный массив....

[Marfeys]

В программе вводится массив из 15 элементов.Затем все нули перестанавливаются в конец...

Входные данные:
1,0,1,1,1,1,..,1
Выходные:
1,1,1,1,..,1,1,0

Как переставить нули в начало ???
Чтобы выходные данные были
0,1,1,1,..1.

Код программы где нули вконце:

Program name3;
Uses CRT;
Const N=15;
      FindElem=0;
Var A:Array[1..N] Of Integer;
    I,J,M:Integer;

Procedure DeleteElem(S:Integer);
Var J:Integer;
Begin
     For J:=S To N-1 Do
     Begin
          A[J]:= A[J+1];
     End;
End;

BEGIN
Writeln('Programma postavit vna4alo vse nylevie elementi');
     For I:=1 To N Do
   Readln(a[i]);
     I:=1;
     M:=N;

     While I<=M Do
     Begin
          If A[I]=FindElem Then
             Begin
                  DeleteElem(I);
                  A[M]:=FindElem;
                  Dec(M);
             End
          Else
              Inc(I);
     End;
      Writeln('rezyltat');
     For I:= 1 To N Do Write(A[I]:3);
END.

[Zevsnet]

А не проще ли в твоей программе просто поменять константу FindElem=0; на FindElem=1; заменив 0 на 1... тем самым ты будешь все 1 смещать в конец.. , а 0 у тебя все будут в начале

[Marfeys]

А если в массиве не только нули и единицы....

[andrewpalkin]

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

А если в массиве не только нули и единицы....

Значит делай сортировку , с проверкой на ноль . Если ноль , то переставляй его и все .