Даны целые числа

[Хутор]

Даны целые числа a1,a2,... Известно, что a1 > 0 и что среди a2,a3,... есть хотябы одно отрицательное число. Пусть a1,..., an - члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить:
min (a1 + a2, a2 + a3, ..., an-1 + an);

Привет. можете помочь. Я вам буду очень признателен за помощь в этом деле

[andrewpalkin]

Помоги нам , помочь тебе

Напиши код , который ты написал и что именно не работает в нем ?

[Mad_Cat]

n:=1;
while a[n]>0 do
inc(n);
k:=1;
for i:=2 to n-1 do
if a[i]+a[i+1]<a[k]+a[k+1] then k:=i;
writeln(a[k]+a[k+1]);