Одномерный массив Х(8) задать по формуле X[i]=ln(i+0,1). Найти количество элементов, удовлетворяющих условию-0,5<sin(xi)≤0, минимальный элемент.

// 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