Ocena użytkownikóww: ***** / 0
Nadesłany przez Jarek Niedźwiecki, 16 sierpnia 2013 10:03
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
liczba_wystapien.pas:
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.