begin
var A:array of integer;
setlength(A,15);
A.FillRandom(0,99);
for var L:=A.Low to A.High do
writeln('A[',L+1,'] = ',A[L]);
end.
Пример работы программы:
begin
var A:array of integer;
setlength(A,15);
A.FillRandom(0,99);
for var L:=A.Low to A.High do
writeln('A[',L+1,'] = ',A[L]);
end.
Пример работы программы: