Question

How to create and initialize a 2d array of characters with different row lengths in Pascal

Answer 1

program Create2DArrayOfCharactersWithDifferentRowLengths;

var
  charArray2D: array[1..4] of array of char;
  row: array of char;
  i, j: Integer;

begin
  // Initialize the 2D array
  charArray2D[1] := ['A', 'B', 'C'];
  charArray2D[2] := ['Y'];
  charArray2D[3] := ['D', 'E'];
  charArray2D[4] := ['F', 'G', 'H', 'I', 'J', 'K'];

  for i := Low(charArray2D) to High(charArray2D) do
  begin
    row := charArray2D[i];
    for j := Low(row) to High(row) do
    begin
      Write(row[j], ' ');
    end;
    WriteLn;
  end;
end.



(*
run:

A B C 
Y 
D E 
F G H I J K 

*)

 

70+ SQL courses for beginners and professionals