program liczba_wystapien;
//Zliczanie wystapien danego elementu w tablicy
//www.algorytm.org

uses crt,sysutils;

var a:array[1..100] of integer;    //deklarujemy tablice//
wynik,x,i,n:integer;


begin
clrscr;
 writeln('podaj ilosc elememtow tablicy');
 readln(n);                                //okreslamy rozmiar tablicy//

 for i:=1 to n do                        //podajemy wartosci elementow tablicy//
  begin
   writeln('podaj element a[',i,']');
   readln(a[i]);
  end;

 writeln('jakiego elementu szukasz?');  //x to szukany element tablicy//
 readln(x);
 writeln;
 wynik:=0;                   //zawsze zerujemy licznik poczatkowy//
 for i:=1 to n do    //zakres tablicy do przeszukania (nie musi byc caly zakres)//
  begin
   if a[i]=x then    //przeszukiwanie tablicy//
    wynik:=wynik+1;   //zliczanie wystepowania szukanego elementu//
  end;
 writeln('szukany element wystepuje ',wynik,' razy');
 readln;
end.