Напишите, пожалуйста программу

> ...и поставить в конец
Что поставить в конец?

procedure pa(a: array of integer; n: integer);
var
    c: integer;
begin
    for c := 0 to n - 1 do write(a[c]:3);
    writeln;
end;

var
    a: array [1..10] of integer;
    c, n: integer;
begin
    randomize;
    for c := 1 to 10 do a[c] := random(11) - 5;
    pa(a, 10);
    for c := 1 to 10 do if a[c] < 0 then a[c] := 0;
    pa(a, 10);
    for c := 1 to 10 do
        if a[c] <> 0 then begin
            inc(n);
            a[n] := a[c];
        end;
    for c := n + 1 to 10 do a[c] := 0;
    pa(a, 10);
end.

а какой язык программирования

Ввиду того, что не указан язык программирования, укажу лишь алгоритм:
Заполняешь массив
Выводишь на экран
В новый массив переводишь элементы, проверяя на отрицательность
Положительно-нулевые в начало, отрицательные заменяешь на ноль и помещаешь в конец
Выводишь на экран

Удачи!

Оплата? (возможно и без нее)
Язык??? ?
Если паскаль - то сама пиши в школе тебе дали все необходимые для этого навыки