Анализ информационной сферы и дествующих в них субъекты позволяет выделить в них 3 основные их сферы: 1)производители информации, информационных рисурсов, информационных продукотов, информационных услуг, а также информационныхсисием, технологий и средств их обеспечения; 2)обладатели(держатели) информации, информационных ресурсов, информационных п родуктов, собственники информационных систем и средств их обеспечения; 3)потребители информации, информационных ресурсов, информациооных продуктов, информационных услуг.составить примеры по перечисленным 3 действующих субъектов.причислите себя к какому-то из субъектов, если вы держатель ценных бумаг, например или вы- предприниматель? ​

Алгоритм. Отсортируем массив за O(nlogn). Запустим цикл по всем k, в теле цикла будем искать индексы i <= j, такие, что A[i] + A[j] = -A[k]. Понятно, что этот поиск надо делать за O(n), чтобы общее время работы было квадратичным.

Искать будем с двух указателей. Рассмотрим кусок массива, в котором ищем ответ A[l..r] (первоначально l = 1, r = n). Посмотрим на A[l] + A[r]. Если эта сумма больше, чем нужно, уменьшим на 1 число r, если меньше - увеличим на 1 число l, если равно -A[k] - победа, выводим ответ (l, r, k). Будем повторять это в цикле, пока l не станет больше r.

Если после выполнения цикла по k искомая тройка так и не нашлась, пишем "нет".

Корректность. Пусть в какой-то момент A[l] + A[r] < -A[k]. Тогда, чтобы иметь возможность получить A[i] + A[j] = -A[k], надо сумму увеличить. A[l] оказалось настолько мало, что даже если прибавить к нему самое большое возможное число (а это как раз A[r] - массив-то отсортирован!), то всё равно получается слишком мало. Значит, A[l] в ответе не будет, и можно безбоязненно выкинуть его из рассмотрения. Аналогично будет и в случае, когда A[l] + A[r] > -A[k].
Осталось показать, что если такая тройка индексов существует, то наш алгоритм не выдаст неверный ответ "нет". Но это очевидно: если ответ (I, J, K), то уж при k = K алгоритм что-нибудь да найдёт.

Время работы. Внутренний цикл выдает ответ не более чем за линейное время: всякий раз размер массива уменьшается на 1, всего элементов в массиве n, а на каждом шаге тратится константное время; пусть время выполнения внутреннего цикла T'(n) < an. Тогда все n проходов внешнего цикла затратят время T1(n) <= n T'(n) < an^2.
Сортировку можно сделать за время T2(n) < b nlogn < bn^2
Общее время работы T(n) = T1(n) + T2(n) < an^2 + bn^2 = cn^2

1.
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,10,90); a.Println;
  var max_1:=a.Max;
  writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
  var max_2:=a.Where(x->x<>max_1).Max;
  writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.

Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18

2.
// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,10,90); a.Println;
  var sr:=a.Average;
  writeln('Среднее = ',sr);
  var m:=a.MinBy(x->abs(x-sr));
  writeln('Искомый номер = ',a.IndexOf(m)+1);
end.

Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6