Впрограмме ms excel в столбец c введена следующая информация: форма, яблоня, скатиться, диван, век. производится поиск данных: какое слово будет найдено? диван пляж век скатиться

Скатиться, если правильно варианты ответов переписал : )

Const
  n = 30;

var
  a: array[1..n] of integer;
  i, k, e: integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(20) - 10;
    write(a[i]:4)
  end;
  writeln;
  k := 0;
  write('Индексы нулевых элементов: ');
  for i := 1 to n do
    if a[i] = 0 then
    begin
      k := k + 1;
      write(i:3)
    end;
  writeln;
  writeln('Количество нулевых элементов: ', k)
end.

Тестовое решение:

Исходный массив
   8  -8   0   9  -1   0   4  -6  -8   2   4   7   4  -5   4   2  -1   6  -1   5   5   6  -6  -6  -1  -4   0  -7  -8  -3
Индексы нулевых элементов:   3  6 27
Количество нулевых элементов: 3

Function f(x: real): real;
begin
  f := exp(3 * ln(ln(exp(1.7 * ln(abs(x - 12))) + 5.1))) / exp(3 * ln(ln(2)));
end;

var
  a, b, eps, r, delta, lp, rp, sgn: real;

begin
  r := (sqrt(5) + 1) / 2; {Пропорция золотого сечения}
  writeln('Пропорция золотого сечения=', r:0:6);
  writeln('Задайте границы интервала и точность решения');
  readln(a, b, eps);
  delta := eps / 2;
  rp := a + (b - a) / r;
  lp := b - (b - a) / r;
  if f(a) > (f(a + delta)) then sgn := 1 else sgn := -1;
  while abs(b - a) > eps do
  begin
    rp := a + (b - a) / r;
    lp := b - (b - a) / r;
    if (sgn * f(lp)) < (sgn * f(rp)) then b := rp else a := lp
  end;
  if sgn = -1 then writeln('Максимум достигнут при х=', lp:0:6,
      ', значение функции равно ', f(lp):0:6)
  else writeln('Минимум достигнут при х=', rp:0:6,
      ', значение функции равно ', f(rp):0:6)
end.

Тестовое решение:

Пропорция золотого сечения=1.618034
Задайте границы интервала и точность решения
11 15 0.00001
Минимум достигнут при х=11.999996, значение функции равно 12.986115