# If (i1&gt;i2)

If (i1&gt;i2) Or (j1&gt;j2) Then Exit; l:=(i1+i2) div 2; m:=(j1+j2) div 2; p:=p+1; {p - счетчик числа сравнений, начальное значение нуль при каждом новом поиске, глобальная переменная } If A[l,m]=X Then Begin { элемент X найден} pp:=true End Else Begin If X&gt;A[l,m] Then Begin{ поиск в 3-й части} Poick(l+1,m,i2,j2); Poick(l,m+1,l,j2) End Else Begin { поиск в 1-й части} Poick(l,j1,l,m-1); Poick(i1,j1,l-1,m) End; { поиск во 2-й части } Poick(l+1,j1,i2,m-1); Poick(i1,m+1,l-1,j2); End; End; Основная программа достаточно очевидна, поэтому приводить ее текст вряд ли целесообразно. Пример исходной матрицы A, результирующей матрицы C и значения ls: A C ls=5.88 1 2 3 4 5 4 3 6 9 12 6 7 8 9 10 5 4 5 10 11 11 12 13 14 15 2 3 1 5 7 16 17 18 19 20 9 11 3 2 4 21 22 23 24 25 9 10 5 3 4 Для этой же матрицы A значение ls можно уменьшить за счет некоторой модификации процедуры Poick. Попробуйте. о94_2 Суть решения. If длина(Y)&lt;длина(X) Then &lt;Поменять значения

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа