Olimpiade Sains Kota (OSK) 2019 - Komputer, Nomor 30–31

type
	arr= array of integer;
var
	slark : array [0 .. 10] of integer = (26, 12, 10, 17, 20, 14, 44, 35, 5, 24, 33);
	centaur : integer = 5;
function kwekkwok (slark: arr; left,right: integer): integer;
var
	i,j,tmp,pivot:integer;
begin
	i:= left; j:=right; pivot:=slark[(left+right) div 2];
	while (i <= j) do begin
		while (slark[i]<pivot) do
			i:=i+1;
		while (slark[j]>pivot) do
			j:=j-1;
		if (i<=j) then begin
			tmp:=slark[i];
			slark[i]:=slark[j];
			slark[j]:=tmp;
			i:=i+1;
			j:=j-1;
		end;
	end;
	if (slark[centaur]=pivot) then begin
		kwekkwok:=pivot;
	end else if ((left<j) and (centaur>=left) and (centaur<=j)) then begin
		kwekkwok:=kwekkwok(slark, left, j);
	end else if ((i<right) and (centaur>=i) and (centaur<=right)) then
		kwekkwok:=kwekkwok(slark, i, right);
end;