Найти средне арифметическое элементов последовательности,превосходящих некоторого числа C.Массив задан датчиком случайных чисел на интервале [-44;35].Размер произвольный.Значение C вводится с экрана.

Кликните по любому месту диаграммы, для которой хотите создать название.

Когда диаграмма будет выделена, на Ленте появится группа вкладок Работа с диаграммами (Chart Tools). Эти вкладки видны только, когда диаграмма выделена (вкладки имеют цветной фон).

В Excel 2013 в группу вкладок Работа с диаграммами (Chart Tools) входят вкладки Конструктор (Design) и Формат (Format).

Названия диаграмм и осей Excel

Перейдите на вкладку Конструктор (Design).

В разделе Макеты диаграмм (Chart Layouts) откройте выпадающее меню Добавить элемент диаграммы (Add Chart Element).

В Excel 2010 Вам потребуется раздел Подписи (Labels) на вкладке Макет (Layout).

Кликните Название диаграммы (Chart Title) и выберите позицию для размещения названия. Excel предлагает на выбор две позиции:

Над диаграммой (Above Chart) – в этом случае диаграмма будет незначительно уменьшена;

По центру (Centered Overlay) – так название будет расположено непосредственно на диаграмме в самом верху, а размер диаграммы не изменится.

Названия диаграмм и осей Excel

Кликните по полю названия.

Выделите слова “Название диаграммы” и введите нужное название.

Объяснение:

Пусть чисел в отрезке N штук.
тогда сумма подряд идущих чисел, начиная с х будет равна
Sum = Nx + N*(N-1)/2
здесь второе слагаемое - это частичная сумма арифметической прогрессии 0,1,2,3...N
Максимальное значение N будет при нулевом x
1/2 (N - 1) N = 1014
N^2/2 - N/2 - 1014 = 0
N = 1/2 - sqrt(8113)/2 - нехороший корень
N = 1/2 + sqrt(8113)/2 - а это правильный, равный 45,53
Максимальное значение x будет при N=1
x = 1014, это тривиальное решение
Перебирать будем по N, просто меньше перебора
Nx + N*(N-1)/2 = 1014
Nx = 1014 - N*(N-1)/2
x =  1014/N - (N-1)/2 = (2028 - N(N-1))/(2N)
и проверять x на целостность

var 
  x,n,counter:longint;
begin
 counter:=0;
  for n:=1 to 45 do
    if (2028 - N*(N-1))mod(2*N) = 0 then 
    begin
      inc(counter);
      x := (2028 - N*(N-1))div(2*N);
      writeln ('x=',x,' N=',n);
    end;
  writeln('Всего решений ',counter);
end.

а отрезков 6