blob: 2be38d8d4f84cb8ebe9c950c6a1f700abed41a89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{mode objfpc}
{$apptype console}
type
T = array [1..3] of Integer;
procedure P(a: array of T);
var
r: T;
i: Integer;
begin
for r in a do
begin
for i in r do Write(i, ' ');
Writeln;
end;
end;
const
r1: T = (1,2,9);
r2: T = (3,4,5);
begin
P([r1, r2]);
end.
|
