menggeser deret bilangan 1 baris ke kanan

Program Geser_ke_Kanan ;
Uses wincrt ;
Var A : Array[1..100] of Integer ;
    N, i, j, X, Simpan : integer ;

Begin
  Writeln ('Anda ingin memasukkan berapa angka?') ;
  Readln  (N) ;
  Writeln ;
  Writeln ('Silahkan masukkan ke-',N,' bilangan tersebut') ;
  For i:=1 to N do
      Readln (A[i]) ;
  Writeln ;

  Simpan:=A[N] ;
  For i:=N downto 2 do
      A[i] := A[i-1] ;
  A[1]:=Simpan ;  

  Writeln ('Setelah dibalik hasilnya :') ;
  For i:=1 to N do
      Write (A[i],' ') ;
End.

Tweet