Program menampilkan bilangan genap dengan array

Program menampilkan bilangan genap dengan array - Pada kesempatan ini saya akan kembali sharing program untuk salin bilangan genap dengan menggunakan dua array dengan pascal. Dimana array pertama untuk menampung nilai masukan dari user dan kemudian menampilkannya didalam array kedua, tetapi diarray kedua tidak menampilakn semua nilai dari pertam, tapi hanya bilangan yang bernilai genap saja ditampilkan, dan bilangan bernilai ganjil ditampilkan dengan nilai 0.

Soal :

Buatlah program untuk menyalin bilangan dari array pertam kearray kedua, tetapi hanya bilangan yang bernilai genap saja yang ditampilkan

Penyelesaian :

program salin_genap;

var

arr1: array [1..100] of integer;

arr2: array [1..100] of integer;

n,i : integer;

begin

  write('masukan jumlah nilai :'); readln(n);

  writeln;

  for i:=1 to n do

  begin

  write('masukan array1 [',i,'] :'); readln(arr1[i]);

  end;

  for i:=1 to n do

  begin

  if (arr1[i] mod 2=0) then

  arr2[i]:= arr1[i];

  end;

  writeln;

  writeln('HASIL ARRAY 1');

  writeln;

  for i:=1 to n do

  begin

    writeln('array1 [',i,'] :',arr1[i]);

  end;

  writeln('HASIL SALIN ARRAY 1 KE ARRAY 2');

  writeln;

  for i:=1 to n do

  begin



    writeln('array2 [',i,'] :',arr2[i]);

  end;

  readln;

end.

Hasil :

Sekian dulu Program menampilkan bilangan genap dengan array dengan pascal, ingat bagi yang menggunakan tutorial ini untuk tugas, jangan full copy paste, harap dipahami. Thanks you