Как преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные.

 j := n;

for i := n downto 1 do

  if arr[i]  0 then begin

    arr[j] := arr[i];

    dec(j)

  end;

for i := j downto 1 do arr[i] := 0; 

Это если индексы массива arr: 1..n

O(n) - безо всякой сортировки.

в цикле если значение 0-то в начало другого массива,если нет- то в конец, потом перенеси в исходный массив,если это нужно

лазарус.... всё

В Lazarus вы можете использовать функцию TArray.Sort, чтобы отсортировать массив таким образом. Например:

Copy code
uses SysUtils;

procedure SortArray(var arr: array of Integer);
begin
TArray.Sort<Integer>(arr, TComparer<Integer>.Construct(
function(const L, R: Integer): Integer
begin
if L = 0 then
Exit(-1);
if R = 0 then
Exit(1);
Result := 0;
end
));
end;

var
arr: array of Integer;
begin
arr := [0, 1, 2, 0, 3, 0, 4, 5];
SortArray(arr);
WriteLn(arr); // [0, 0, 0, 1, 2, 3, 4, 5]
end.
В этом коде функция SortArray принимает массив arr в качестве аргумента и использует функцию TArray.Sort для сортировки элементов этого массива.

template<class T>
void setZeroToStart(T *array, int size)
{
T TempArr[size]; int iterator = 0; int countOfZeros = 0;
for(int i = 0; i < size; i++)
{
if(array[i] != 0)
{
TempArr[iterator] = array[i];
iterator++ ;
}
else
{
countOfZeros++ ;
};
};

for(int i = 0; i < countOfZeros; i++)
{
array[i] = 0;
};

for(int i = countOfZeros; i < size; i++)
{
array[i] = TempArr[i - countOfZeros];
};

for(int i = 0; i < size; i ++)
{
std::cout << array [i] << " ";
};

std::cout << std::endl;
};