Transform the array so that zero items are placed after all others.

program zz1;
const n = 20; // set the number of elements in the array
var i, j, k: integer; // set variables of integer type
m: array [1..n] of integer;
begin
for i: = 1 to n do // get n random numbers and write them into an array
m [i]: = random (11) -5;
for i: = 1 to n do // display the original array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
for i: = 1 to n do
begin
if m [i] = 0 then begin for j: = i + 1 to n do m [j-1]: = m [j]; k: = k + 1; end;
end;
for i: = n-k + 1 to n do m [i]: = 0; // add zeros to the end of the array
for i: = 1 to n do // display the resulting array on the screen
write (m [i], ”);
end.