Sequencial Search... (Pascal)
{"Image DocumentName": "Sequencial Search... (Pascal)", "Image ImageDescription": "program cari_data_array; var cari, i, jlh, ada:byte; var arr:array[1..8] of byte; begin. uses crt; clrscr; arr[1]:=8; arr[2]:=10; arr[3]:=6; arr[4]:=-2; arr[5]:=11; arr[6]:=7; arr[7]:=1; arr[8]:=100; jlh:=8; ada:=0; write(\u2018Cari = \u2018); readln(cari); for i:=1 to jlh do. begin. if arr[i] = cari then. ada := 1; break; end; if ada = 1 then. write(\u2018Ada\u2019) else. write(\u2018Tidak ada\u2019); end.", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}