Skip to content

Commit e112953

Browse files
committed
add sample
1 parent ba89ad8 commit e112953

File tree

1 file changed

+20
-0
lines changed

1 file changed

+20
-0
lines changed
Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
program dynamic_array;
2+
var
3+
a : array of array of integer;
4+
(* a 2 dimensional array *)
5+
i, j : integer;
6+
7+
begin
8+
setlength(a, 5, 5);
9+
10+
for i:=0 to 4 do
11+
for j:=0 to 4 do
12+
a[i, j] := i * j;
13+
setlength(a, 6, 6);
14+
for i:=0 to 5 do
15+
begin
16+
for j:= 0 to 5 do
17+
write(a[i, j]: 2, ' ');
18+
writeln;
19+
end;
20+
end.

0 commit comments

Comments
 (0)