program menggeser i bilangan ke kiri

Program Geser_ke_Kiri ;
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[1] ;
  For i:=1 to N-1 do
      A[i] := A[i+1] ;
  A[N]:=Simpan ;  

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

Tweet