pascalabcnet/TestSuite/CompilationSamples/DynArr4.pas

// Передача динамического массива в качестве параметра

procedure WriteArr(a: array of integer); // var указывать не нужно, т.к. динамический массив является ссылкой на реальный объект
begin
  foreach x: integer in a do
    write(x,' ');
  writeln;
end;

procedure CreateRandomArr(var a: array of integer; n: integer); // var указывать нужно, т.к. в процедуре создается новый динамический массив 
begin
  a := new integer[n];
  for var i:=0 to a.Length-1 do
    a[i] := Random(10);
end;

var a: array of integer;

begin
  writeln('Случайный целый массив: ');
  CreateRandomArr(a,30);
  WriteArr(a);
end.