.

Gyakorló feladat keresésre: Tömb feltöltése n darab véletlen számmal és meghatározott szám keresése a tömbben program Kereses; uses crt; var i,n,x,j:integer; a:array [1..100] of integer; BEGIN clrscr; i:=1; n:= ; writeln('A tomb elemei:'); while (i<=n) do begin a[i]:=trunc(90*random+1); i:=i+1; writeln('A tomb ',i,'. eleme:',a[i]); end; i:=; t:=; keresett:=; writeln('Keresett szam:',keresett); while (i<=n) do begin if (a[i]=keresett)the begin t:=t+1; writeln('A tomb ',i,'. eleme es a keresett szam megegyezik'); end; i:=i+; end; writeln('A talalatok szama: ',t); END.