Question

How to reverse an array in Pascal

Answer 1

program ReverseArray;

var
  arr: array[1..5] of Integer;
  temp: Integer;
  i, n: Integer;

begin
  { Initialize the array }
  arr[1] := 1;
  arr[2] := 2;
  arr[3] := 3;
  arr[4] := 4;
  arr[5] := 5;
  
  n := 5; { Length of the array }

  { Print the original array }
  Write('Original array: ');
  for i := 1 to n do
    Write(arr[i], ' ');
  Writeln;

  { Reverse the array }
  for i := 1 to n div 2 do
  begin
    temp := arr[i];
    arr[i] := arr[n - i + 1];
    arr[n - i + 1] := temp;
  end;

  { Print the reversed array }
  Write('Reversed array: ');
  for i := 1 to n do
    Write(arr[i], ' ');
  Writeln;
end.



(*
run:

Original array: 1 2 3 4 5 
Reversed array: 5 4 3 2 1 

*)

 

70+ SQL courses for beginners and professionals