Question

How to initialize and print a byte array in Pascal

Answer 1

program InitializeAndPrintByteArray;

var
  byteArray: array[1..5] of Byte = (1, 2, 3, 4, 5);
  i: Integer;
begin
  for i := 1 to Length(byteArray) do
    Write(byteArray[i], ' ');
end.



(*
run:

1 2 3 4 5 

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program InitializeAndPrintByteArray;

var
  byteArray: array[1..5] of Byte; // Empty Byte Array
  i: Integer;
begin
  for i := 1 to Length(byteArray) do
  begin
    byteArray[i] := 0; // Initialize each element to 0
    Write(byteArray[i], ' ');
  end;
end.



(*
run:

0 0 0 0 0

*)

 

70+ SQL courses for beginners and professionals

Answer 3

program InitializeAndPrintByteArray;

var
  byteArray: array[1..5] of Byte;
  i: Integer;
begin
  for i := 1 to Length(byteArray) do // Fill Byte Array
  begin
    byteArray[i] := 17; // Set each element to 17
    Write(byteArray[i], ' ');
  end;
end.



(*
run:

17 17 17 17 17 

*)

 

70+ SQL courses for beginners and professionals