Знову Влад розв’язав цю задачу своїм оригінальним методом. Можливо не найоптимальнішим, проте гадаю, його розв’язок заслуговує на увагу і має право на життя. Програма набирає максимально 10 із 10 балів при перевірці он-лайн. Я понаписував коментарі, профі зрозуміють.

program newcircle;
type massyv=array[1..1000]of longint;
var i,n,kl,g,x,h,maxn,maxp,kp,kd:longint;x1,x2,a,sum:massyv;
begin

read(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]>0 then inc(kd); {Підраховуємо кількість додатніх елементів}
end;

for i:=1 to n do
if a[i]+1<>a[i+1] then inc(kp); {Підраховуємо кількість відрізків}

if kd>0 then {якщо є додатні елементи, тоді...}
begin
g:=0;
for h:=1 to kp do {послідовно переглядаємо відрізки}
begin
for i:=g+1 to n do {послідовно переглядаємо елементи відрізка}
if a[i]>=0 then {якщо елемент додатній}
if a[i]+1=a[i+1] {та якщо поточний+1=наступному}
then inc(x) {тоді підраховуємо їх кількість. Тобто підраховується кількість елементів у відрізку, в якому елементи йдуть один за одним}
else
begin
x2[h]:=i; {в масив х2 виписуємо останній номер елементу поточного відрізка}
x1[h]:=x2[h]-x; {в масив х1 виписуєм номер першого елементу поточного відрізка}
g:=i; {для розгляду наступного відрізка}
x:=0; {обнулити кількість елементів відрізку}
break;
end;
end;

for h:=1 to kp do
for i:=x1[h] to x2[h] do
sum[h]:=sum[h]+a[i]; {обчислення сум кожної послідовності}

maxn:=1;
maxp:=sum[1];
for h:=2 to kp do
if sum[h]>maxp then
begin
maxp:=sum[h]; {шукаємо максимальну суму}
maxn:=h; {шукаємо номер максимальної суми}
end;
end

else
if kd=0 then {якщо додатні елементи відсутні, тоді...}
begin
maxp:=a[1];
maxn:=1;
x1[maxn]:=1;
x2[maxn]:=1;
for i:=2 to n do
if a[i]>maxp then
begin
maxp:=a[i]; {шукаємо найбільший недодатній елемент}
x1[maxn]:=i; {шукаємо номер найбільшого недодатнього елементу}
x2[maxn]:=i; {шукаємо номер найбільшого недодатнього елементу}
end;
end;
writeln(x1[maxn],' ',x2[maxn],' ',maxp);
end.

НЕ претендуючи на оптимальність, пропоную двопрохідний алгоритм розв'язку

1) проходими 1 раз і розглядаючи "зростаючі" відрізки, визначає відрізок з максимальною сумою.

2) проходими 2 раз і розглядаючи "спадаючі" відрізки, визначає відрізок з максимальною сумою.

3) З відрізків , знайдених в пунктах 1 та 2 вибираємо відрізок з найбільшою сумою .Це і є відповідь.

Не можна порівнювати число з тим, чого нема.
Це щось на кшталт:"Іди туди не знаю куди, принеси то не знаю що"

АЛЕ САМЕ СМІШНЕ, ЩО В ОРИГІНАЛІ (Арсак, "Програмування ігор та головоломок"), звідки взято цю задачу, відрізок - це будь-який фрагмент підряд вишикуваних елементів, головне, щоб номер початку фрагмента був не більше номера кінця, і все! ТОБТО ВІДРІЗОК СКЛАДАЄТЬСЯ З БУДЬ-ЯКИХ ЕЛЕМЕНТІВ, ЩО ЙДУТЬ ПІДРЯД ОДИН ЗА ОДНИМ!
ЦЕ СЛІДУЄ З УМОВИ, НАВЕДЕНОЇ НА САЙТІ, АЛЕ НЕ СЛІДУЄ З ПРИКЛАДІВ, ЩО ЇХ НАДАЛИ "АВТОРИ"!!!!
ВИЙШЛО ДУЖЕ ПОВЧАЛЬНО:-( І СУМНО: - УМОВА ОДНІЄЇ (КЛАСНОЇ, АЛЕ СКЛАДНОЇ) ЗАДАЧІ, ПРИКЛАДИ І ТЕСТИ(!) ВІД ДРУГОЇ, А ВСІ РОЗВ"ЯЗУВАЛИ ТРЕТЮ І ОТРИМУВАЛИ "ПРАВИЛЬНИЙ" РЕЗУЛЬТАТ!

ЩЕ РАЗ ПРОШУ ВИБАЧЕННЯ ЗА свою неуважність...і за "авторів"
Пропоную такий вихід з положення. Я вношу незначну правку в умову- означаю відрізок як в прикладах і тестах, тобто типу 1,2,3... (нова версія умови http://www.olymp.vinnica.ua/index_ua.php?lng=ua&cid=106 ), це відповідає тестам і прикладам - саме ІМХО, це мали на увазі "автори" . Задача стала простішою, але все рівно цікавою ....
Нашвидку написва розв'язок - здається, що так:

Як видно, задача робиться "за один прохід, тобто алгоритм має лінійну складність.

А ось дійсно оригінальну умову з првильними прикладами і нормалними текстами додаю в розділ ЗАДАЧІ ДЛЯ ПОЧАТКІВЦІВ під назвою NewCircle2

(далі буде)

Додано (04.11.2010, 17:58)
---------------------------------------------
Розмістив НОВУ задачу NewCircle2
http://www.olymp.vinnica.ua/index_ua.php?lng=ua&cid=992
Саме в такому варіанті вона була в першоджерелі, і тут ВІДРІЗОК - це просто пдряд розміщені члени послідовності, починаючи з будь-якого, і закінчуючи будь-яким з не меншим номером. (див приклади!!!!).
Ось тепер вийшла ДІЙСНО ЦІКАВА ЗАДАЧА!!!

ДЛЯ БАЖАЮЧИХ: ПОВНИЙ ОПИС РОЗВ"ЯЗКУ ВИКЛАВ НА http://disted.edu.vn.ua/courses/learn/2947
(тут не можу - таблиці треба креслити...)

Додано (05.11.2010, 19:17)
---------------------------------------------
За добу - ЖОДНОГО відвідування за вказаним ппосиланнм