1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
program Ch1;
{$mode objfpc}
uses
SysUtils,Types;
var
I:Integer;
A1,A2,A3:TIntegerDynArray;
procedure MoveZero(var Arr:TIntegerDynArray);
var
I,Count:Integer;
begin
Count := 0;
for I := Low(Arr) to High(Arr) do
if Arr[I] <> 0 then begin Arr[Count] := Arr[I]; Inc(Count) end;
while Count <= High(Arr) do begin Arr[Count] := 0; Inc(Count) end;
end;
begin
A1 := [1,0,3,0,0,5];
A2 := [1,6,4];
A3 := [0,1,0,2,0];
MoveZero(A1);
MoveZero(A2);
MoveZero(A3);
for I := Low(A1) to High(A1) do Write(A1[I], ' '); WriteLn;
for I := Low(A2) to High(A2) do Write(A2[I], ' '); WriteLn;
for I := Low(A3) to High(A3) do Write(A3[I], ' '); WriteLn;
end.
|
