Semester 1, Algoritma 5, Array 2

PROGRAM Bilangan_Bulat

DEKLARASI

type bilbul : array [1..n] of integer

B : bilbul

s, n : integer

function bilbul (input s, hasil : integer) → integer

ALGORITMA

Write(“Masukkan perulangan yang anda inginkan =  “)

Read (n)

For s ← 1 to n do

Write(“bilbul ke [“,s,”] : “)

Read(c[s])

if (Bilangan(x == 0)) then

write(“ bilangan bulat ditemukan di bilbul  [“,s,”] =”,  c[s])

Else

write(“Bilangan tidak ditemukan”)

endif

endfor

function bilbul  (input  s, x = integer) → integer

return(hasil←c[s] mod 2)