ArrayTukar

program ArayABGanjil;

uses crt;
 const nmaks=50;
  type
    larikint=array [1..nmaks] of integer;
 var
  a:larikint;
  b,c:larikint;
  i,x:integer;
  n:integer;

procedure proses(n:integer; var a:larikint);
begin
  writeln('Masukan Nilai : ');
  for i:= 1 to n do
  begin
    readln(a[i]);
    end;
  for i:=1 to n do
  begin
    if a[i] mod 2 = 1 then
       begin
         b[i]:=a[i];
       end;
  end;
  writeln('Array B: ');
  for i:= 1 to n do
  begin
    writeln(b[i]);
  end;

end;

procedure genap (n:integer; var a:larikint);
begin

  for i:=1 to n do
  begin
    if a[i] mod 2 = 0 then
       begin
         c[i]:=a[i];
       end;
  end;
  writeln('Array A: ');
  for i:= 1 to n do
  begin
    writeln(c[i]);
  end;
end;

begin
  write('Masukan Banyak Data: '); read(n);
  proses(n,a);
  genap(n,a);
  readkey;
end.