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

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

begin
  var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
  var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=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

Хранение информации:
· Носители информации.
· Виды памяти.
· Хранилища информации.
· Основные свойства хранилищ информации.
Обработка информации:
· Общая схема процесса обработки информации.
· Постановка задачи обработки.
· Исполнитель обработки.
· Алгоритм обработки.
· Типовые задачи обработки информации.
Передача информации:
· Источник и приемник информации.
· Информационные каналы.
· Роль органов чувств в процессе восприятия информации че­ловеком.
· Структура технических систем связи.
· Что такое кодирование и декодирование.
· Понятие шума; приемы защиты от шума.
· Скорость передачи информации и пропускная канала.

Если A, B имеют общий делитель d, то и A + B делится на d. Отсюда идея: найдем наибольший делитель N, меньший N, и представим всё в виде d + (N - d). d будем искать так: найдём наименьший делитель q, не равный 1 (если число составное, он не больше корня из N), тогда d = N/q.

var
  q, d, n: longint;
  isfound: boolean;

begin
  readln(n);
  isfound := false;
  for q := 2 to trunc(sqrt(n)) + 1 do
    if n mod q = 0 then
    begin
      d := n div q;
      write(d, ' ', n - d);
      isfound := true;
      break;
    end;
  if not isfound then
    write(1, ' ', n - 1);
end.