Обиий текст: Даны описания: const n=10; type tarr= array[1..n] of integer, const a: tarr =(1,2,2,16,16,16,16,17,17.33); var i, i1, i2, i3: byte; function fl(a: tarr; x : integer; var i: byte): boolean; var i1, i2: byte; begin i1: =1; i:=n; while i 1<=i 2

Обиий текст:
Даны описания:
const n=10;
type t_arr= array[1..n] of integer,
const a: t_arr =(1,2,2,16,16,16,16,17,17.33);
var i, i1, i2, i3: byte;
function fl(a: t_arr; x : integer; var i: byte): boolean; var i1, i2: byte;
begin i1: =1; i:=n;
while i 1<=i 2 do begin i:=(i 1+i 2) div 2 ;
if a[i]<x then i l:=i+1
else if a[i] >x then i 2:=i-1
else break;
end;
fl:=a[i]=x;
end;
function 12 (a: t_arr; x : integer; var i : byte): boolean; begin i=1; while (i<=n) and ( a[i]<=x ) do inc(i);
if i>0 then dec(i);
f 2:=a[i]=x;
end;
function 13(a: t_arr; x : integer; var i: byte): boolean; begin i=n; while (i>0) and ( a[i]>=x ) do dec(i);
if i<n then inc( i);
f 3:=a[i]=x;
end;
var a: t_arr; p, q, r: boolean;
Массив а ннициалнзнрован последовательностью:
2,2,3,16,16,16,16,17,17,33.
^ Скрыть

Задание:
После выпотнения операторов
p:=f 2(a, 14, i 2) ; q:=f 3(a, 14, i 3)

значенне выражения 12+13 будет равно ...