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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
program Ch2;
{$mode objfpc}
uses
SysUtils,Types;
var
A1,A2,A3,Ret1,Ret2,Ret3:TIntegerDynArray;
function DuplicateZeros(var Arr:TIntegerDynArray):TIntegerDynArray;
var
I,J:Integer;
begin
SetLength(Result,Length(Arr));
I := 0; J := 0;
while J <= High(Arr) do
begin
if Arr[I] = 0 then
begin
Result[J] := 0;
Inc(J);
Result[J] := 0;
Inc(I);
Inc(J);
end
else
begin
Result[J] := Arr[I];
Inc(I);
Inc(J);
end;
end;
end;
procedure PrintArray(var Arr:TIntegerDynArray);
var I:Integer;
begin
for I := Low(Arr) to High(Arr) do Write(Arr[I], ' ');
WriteLn;
end;
begin
A1 := [1,0,2,3,0,4,5,0];
A2 := [1,2,3];
A3 := [0,3,0,4,5];
Ret1 := DuplicateZeros(A1);
Ret2 := DuplicateZeros(A2);
Ret3 := DuplicateZeros(A3);
PrintArray(Ret1);
PrintArray(Ret2);
PrintArray(Ret3);
end.
|
