ALPRO

program Tukar_Nilai;

Uses WinCrt;

Type Larik = Array [1..100] of Integer;

Var

   A,B    : Larik;

   i,x,m,n,l  : Byte;

Procedure Tukar;

Var

 T:Integer;

Begin

  x:=0;

  For i := 1 to m do

    Begin

      T:=A[i];

      A[i]:=B[i];

      B[i]:=T;

      Write(A[i]);

      Write(B[i]);

      x:=x+2;

    End;

End;

Procedure Input;

Var x:Byte;

Begin

  Randomize;

  x:=0;

  For i := 1 to m do

    Begin

      A[i]:=Random(10);

      B[i]:=Random(10);

      Write(A[i]);

      Write(B[i]);

      x:=x+2;

    End;

End;

Begin

  Writeln('Program Menukar Nilai Larik A & B');

  Writeln('=================================');

  write('Menu nilai tukar');

  Writeln('Jumlah Data : ');Readln(m);

  Writeln('Nilai A:');readln(m);

  Writeln('Nilai B:');readln(m);

  writeln('Jenis Data :');readln(n);

  writeln('Nilai A:');readln(n);

  writeln('Nilai B:');readln(n);

  writeln('Data yang Di Tukar :');readln(l);

  writeln('Nilai A:');readln(l);

  writeln('Nilai B:');readln(l);

  Input;

  Writeln('Setelah Di Tukar');

  Writeln('================');

  Writeln('Nilai A:');

  writeln('Nilai B:');

  writeln('setelah di tambah');

  writeln('=================');

  writeln('Nilai B:');

  writeln('Nilai A:');

  Tukar;

  end.