Question

How to shift elements of an array to the left by one position in Pascal

Answer 1

program ShiftLeft;

const
  SIZE = 6;

var
  arr: array[0..SIZE - 1] of Integer = (0, 1, 2, 3, 4, 5);
  i, first: Integer;

begin
  Write('Original: ');
  for i := 0 to SIZE - 1 do
    Write(arr[i], ' ');
  Writeln;

  // Shift left logic
  first := arr[0];
  for i := 0 to SIZE - 2 do
    arr[i] := arr[i + 1];
  arr[SIZE - 1] := first;

  Write('Shifted:  ');
  for i := 0 to SIZE - 1 do
    Write(arr[i], ' ');
  Writeln;
end.



(*
run:

Original: 0 1 2 3 4 5 
Shifted:  1 2 3 4 5 0 
 
*)

 

70+ SQL courses for beginners and professionals