Pascal - Konsolowe

Wyszukiwanie liczby w tablicy

Wyszukiwanie liczby w tablicy
Pascal - Konsolowe

Program: sprawdzający czy na każdej pozycji w tablicy znajduje się szukana wartość.

Użytkownik podaje ilość elementów tablicy, a także jej elementy, następnie posiada możliwość wyszukania danej liczby wśród wszystkich wartości.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program wyszukiwanie;
uses crt;
var
   a,i,n:integer;
   tablica:array[1..100] of integer;
begin
     clrscr;
            write('Podaj ilosc elementow tablicy: ');
            read(n);
            write('Podaj elementy tablicy: ');
     for i:=1 to n do
         read(tablica[i]);
         write('Elementy tablicy to: ');
     for i:=1 to n do
         write(tablica[i],' , ');
         writeln;
         write('Podaj szukaną liczbe: ');
         read(a);
         writeln;
     repeat
     for i:=1 to n do
          if tablica[i]=a then writeln('Podana liczba wystepuje w tablicy, na miejscu ',i)
          else writeln('Podana liczba nie wystepuje na miejscu ',i);
     until i=n;
     readkey;
end.