var
a : array [1..100] of integer;
i, next, n : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
next := 1;
for i := 1 to n do
if a[i] <> 0 then
a[next] := a[i];
next := next + 1;
end;
n := next - 1;
write (a[i], ' ');
end.
В результате работы в N будет лежать новая длина, а после массива - будет лежать всяий мусор (огрызок прежднего массива), но это неважно.
var
a : array [1..100] of integer;
i, next, n : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
next := 1;
for i := 1 to n do
if a[i] <> 0 then
begin
a[next] := a[i];
next := next + 1;
end;
n := next - 1;
for i := 1 to n do
write (a[i], ' ');
end.
В результате работы в N будет лежать новая длина, а после массива - будет лежать всяий мусор (огрызок прежднего массива), но это неважно.