Одномерный массив Х(8) задать по формуле X[i]=ln(i+0,1). Найти количество частей,

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var x:=ArrGen(8,i-gt;Ln(i+1.1)); x.Println;
  var k:=x.Where(t-gt;(Sin(t)gt;-0.5) and (Sin(t)lt;=0)).Count;
  var im:=x.IndexMin;
  Writeln('На указанном промежутке найдено частей: ',k);
  Writeln('Минимальный элемент массива, одинаковый ',x[im],
      ' имеет порядковый номер ',im+1)
end.

Итог
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На обозначенном интервале найдено элементов: 0
Малый элемент массива, одинаковый 0.0953101798043249 имеет порядковый номер 1