Отправлено: 30.12.20 11:06. Заголовок: Задача 26.30. автор Е. Джобс

Очень тяжело воспринимается условие задачи 26.30. Скорее всего автор, когда создавал условие четко представлял задачу. Но для пользователя осмыслить тяжело, даже приведенный пример не помогает.
Вопросы к автору по условию:
1) выровнять ямы - значит сделать их объемы одинаковые?
2) «Новая яма будет иметь второй по величине объем (в литрах) среди её самой и двух соседних ям». Как я понял, что создается еще одна яма? Если нет, то как у новой ямы объем может быть различный, чем у двух соседних, когда их выравнивают?
3) Вопрос по приведенному примечанию к примеру:
Пример входного файла:
8
10
12
8
6
20
12
16
10
«после ремонта объем ям будет выглядеть следующим образом 10, 10, 8, 8, 12, 12, 12, 10».
4) Первое число 10 и последнее 10 – из условия ясно, что размеры первой и последней ямы решили не менять.
5) Второе число 10. Как я понял это (12+8)/2 = 10 . И число 10 записали вместо 12, а 2 литра вылилось на дорогу. Но вопрос, что это за выравнивание, когда было 12 и 8, а осталось 10 и 8?
Просьба к автору, если возможно, или подкорректировать условие или подробнее расписать как появились числа 10, 10, 8, 8 и т.д. Тогда можно четко понять условие.

 Отправлено: 30.12.20 12:32. Заголовок: Новая яма будет имет..

Новая яма будет иметь второй по величине объем (в литрах) среди её самой и двух соседних ям.

Что конкретно тут непонятно?
Зачем вы берете среднее арифметическое? В каком месте это написано?

Пример.
Берем яму №2
10, 12 и 8. Второй по величине объем - 10 литров. Поэтому и яма станет 10 литров.

Новая яма - обновленная старая, единственное что я могу заметить, как не однозначное условие.

> Но вопрос, что это за выравнивание, когда было 12 и 8, а осталось 10 и 8?
Вот такое выравнивание, которое описано в условии. Если обратите внимание на начальное состояние и конечное, то заметите, что перепады стали значительно меньше. Значит и дорога стала "ровнее".

 Отправлено: 30.12.20 13:51. Заголовок: Спасибо!..

Спасибо!

 Отправлено: 23.01.21 14:57. Заголовок: ЕГЭ 26-30

var N,S,C,k: integer;
begin
Assign(input, '26-J5.txt');
Read(N);S:=0;
var data := ReadArrInteger(N);
var a := ArrFill(N,0);
a[0]:=data[0];a[N-1]:=data[N-1];
for var i:=1 to N-2 do begin
C:=data;
if data=Max(data[i-1],data,data[i+1])
then C:=Max(data[i-1],data[i+1]) else if data<Min(data[i-1],data[i+1])
then C:=Min(data[i-1],data[i+1]);
if C<data then S:=S+data-C;
a:=C;
end;

C:=a.Min;k:=0;
for var i:=0 to N-1 do begin
if a=C then k:=k+1
end;
Println(k,S);
end.