Tömb feltöltése véletlen számokkal, majd egy bekért szám keresése a tömbben lineáris kereséssel, eljárások használatával (LinearisKereses.pas) program LinearisKereses; uses crt; var i,n,sz,t:integer; a:array [1..50] of integer; procedure tombfeltoltes; begin i:=1; write('Hany darab szam legyen a tombben? '); readln(n); while (i<=n) do begin a[i]:=trunc(90*random+1); i:=i+1; end; i:=1; while (i<=n) do begin writeln('A tomb ',i,'. eleme: ',a[i]); i:=i+1; end; end; procedure bekeres; Bekérjük a billentyűzetről a keresendő számot. begin write('A keresett szam: '); readln(sz); end; BEGIN clrscr; tombfeltoltes; bekeres; t:=0; t = találatok száma, melyet kezdetben 0-ra állítunk i:=1; while (i<=n) do begin if(a[i]=sz) then begin Végigmegyünk a tömb elemein és megvizsgáljuk, hogy a tömb aktuális eleme megegyezik e a keresett számmal. Ha igen, akkor a találatok számát növeljük, valamint kiírjuk a képernyőre, hogy melyik tömb elemnél van egyezés. t:=t+1; writeln('A talalat a tomb ',i,'. eleme'); end; i:=i+1; end; writeln('A talalatok szama: ',t); END.