.

     

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.