Question

Soal array pada pascal

Answer 1

Jika array yang diarsir bernilai true maka:

misal i dan j = baris dan kolom

for a := 1 to i do
   for b := 1 to j do
     begin
         if tabel[i,j] = true then writeln(tabel[i,j])
     end for