blob: 138bfe28669e13915a04781aaf647d212cf561a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example113;
{ Program to demonstrate the Slice function. }
procedure ShowArray(const A: array of Integer);
var
I: Integer;
begin
for I := Low(A) to High(A) do
WriteLn(I, ' : ', A[I]);
end;
begin
ShowArray(Slice([1,2,3,4],2));
end.
|
