program binaris_logaritmikus_kereses;
const n = 10;
var a: array [1..n] of integer;
    i, j, c, x, als, fel, k: integer;
    van: boolean;
begin
  randomize;
  //A tömb elkészítése
  for i:=1 to n do
    a[i]:=random(9);
  //Tömb rendezése
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[j]<a[i] then begin
        c:=a[j];
        a[j]:=a[i];
        a[i]:=c;
      end;
  //A rendezett tomb kiiratasa
  for i:=1 to n do
    write(a[i], ' ');
  Writeln;
  //Binaris kereses
  als:=1;
  fel:=n;
  x:=random(11);
  writeln('a keresett elem: ', x);
  repeat
    k:=(als+fel) div 2;
    if a[k]<x then als:=k+1;
    if a[k]>x then fel:=k-1;
  until (als>fel) or (a[k]=x);
  van:=als<=fel;
  if van then
    writeln('megtalaltam, a sorszama: ', k)
  else
    writeln('nincsen meg');
  readln;
end.