Var
A:
Array
[
1..100
]
of
Byte
;
i:
Integer
begin
for
i :=
1
to
100
do
SetLength(A[i],Random(
5
)+
);
end
Сайт
Форум
FAQ
Соглашения
Прочее