минимальная сумма подряд идущих чисел (паскаль)

[grom333]

Ребята подскажите алгоритм.
Есть последовательность чисел -5 10 -2 -3 4 -7 1, нужно найти минимальную сумму подряд идущих чисел.. В ответе говорится, что начинаем считать с позиции 3 и до позиции 6, т.е. ((-2)+(-3)+4+(-7))=-8.
Совсем не могу сообразить, как выполнить это задание.. Кто чем поможет?
=================================== ===========================
Мне подсказали одно решение, но оно слишком сложное для меня. Есть что-то по проще?

Const m=100;
var
        i,j,min,tempmin,s,k,N,beg,en:integer;
        x:array [1..m] of integer;
begin
Randomize;
writeln('Введите количество чисел');
readln(N);
writeln('Теперь вводите 'n,' чисел');
For i:=1 to N do
        begin
{               x[i]:=random(6);
                write(x[i]:5);}
    readln(x[i]);
        end;
writeln;
for i:= 1 to N do min:=min+x[i];
beg:=1;
en:=N;
for i:= 1 to N-1 do
        begin
                tempMin:=0;
                for j:= i to N do tempMin:=tempMin+x[j];
                        if TempMin<min then min:=TempMin;                       
                tempMin:=0;
                for j:= 1 to i do tempMin:=tempMin+x[j];
                if TempMin<min then     min:=TempMin;           
                for j:= i+1 to n do
                        begin
                                tempMin:=0;                             
                                for k:= i to j do tempMin:=tempMin+x[k];                        
                                if TempMin<min then     min:=TempMin;
                        end;    
        end;
writeln('Минимальная сумма = ',min);
readln;
end.

[Stilet]

нужно найти минимальную сумму подряд идущих чисел

Тупость какая-то... Минимальная сумма в твоем ряду будет равняться минимальному элементу.

[Косюра]

Кому в голову придет какой то умный алгоритм - пишите. Очень тупая, но интересная задача.

[Ezhuk]

Можно решить влоб, просмотреть все возможные последовательности
(не знаю паскаль так, что напишу на С. Надеюсь будет понятно)

int S=A[0],sum;
       for(int i=0;i<N;i++){// i начальный элемент последовательности 
		for(int j=i;j<N;j++){ // j последний элемент последовательности 
			 sum=0;
			 for(int temp=i;temp<=j;temp++)//считает сумму ряда от i до j элемента
					sum+=A[temp];
			 if(S>sum)  
					S=sum;
		 }
	}

[Косюра]

Ezhuk, а можно теперь для тупых еще раз. Я просто в С - ноль, потому не всё поняла..

sum+=A[temp];

это что? Он в сумму прибавляет A[temp]? а че такое A[temp], я ниче не поняла(

[XeruH]

Сообщение от Косюра

Ezhuk, а можно теперь для тупых еще раз. Я просто в С - ноль, потому не всё поняла..

sum+=A[temp];

это что?

Насколько помню это как в Паскале

sum:=sum+A[temp]

[Ezhuk]

Это сокращенная запись sum=sum+A[temp];

[Косюра]

О. Тогда всё. Всё понятно) Спасибо огромное))