pascal - Динамический массив

Одномерный динамический массив:

program a1;

var
  i, N: integer;
  A: Array of integer;
begin
  read( N);
  SetLength( A, N);
  
  for i := 0 to N-1 do
    read( A[i]);
    
  for i := 0 to N-1 do    
    write( A[i], ' ');
    
  writeln;
  writeln( 'High( A ) = ', High( A ) );
 
end.

Двумерный динамический массив (динамическая матрица):

program a2;

var
  i, j, N: integer;
  A: Array of Array of integer;
begin
  read( N);
  SetLength( A, N);
  for i := 0 to N-1 do  
    SetLength( A[i], N);
  
  randomize;
  for i := 0 to N-1 do
    for j := 0 to N-1 do
      A[i,j] := random(100, 999);
    
  for i := 0 to N-1 do  begin
    for j := 0 to N-1 do    
      write( A[i,j], ' ');
    writeln;
  end;

end.

Вложения:

Array-Dynamic-Matrix.pas	[ ]	0.3 Кб
Array-Dynamic.pas	[ ]	0.2 Кб