Program Array (Mencari angka kelipatan 3)

Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan.

Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan.

Screen Shot :

uses crt;

 var a,b:array[1..10] of integer;

        i,j,k,l:integer;

begin

       {memasukan angka}

   j:=1;

   repeat

     write('angka ke-',j,': ');readln(a[j]);

      j:=j+1;

   until a[j-1]=-1;

   {menentukan mana yang kelipatan 3}

   for k:=1 to j do

     begin

        if a[k] mod 3=0 then

           b[k]:=a[k];

      end;

{Menampilkan mana yang kelipatan tiga}

  write('angka kelipatan 3 adalah : ');

  for i:=1 to (j-1) do

    begin

       if b[i]<>0 then

         write(b[i],', ');

     end;

  readln;

end.