массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99первый цикл i := 0; j := 9;while A[i] < 10 doi := i + 1;считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4второй цикл5, 28, 8, 14, 9, 23, 6, 18, 51, 99while A[j] > 10 doj := j - 1;t := A[i] - A[j];смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176