membalik deret bilangan

Program Membalik_Deret ;
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 ;

  j:=N ;
  For i:=1 to (N div 2) do
      Begin
         Simpan := A[i] ;
           A[i] := A[j] ;
           A[j] := Simpan ;
              j := j-1 ;
      End ;

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

Tweet