максимальная сумма элементов подмассива в массиве

[ОДИНОЧЕСТВО В СЕТИ]

не могу понять вашей логики, нам сказали что задача как-то сводится сама к себе, и не нужно проходить все элементы

а вы спросите у того кто вам это сказал- как не проходя всех элементов узнать максимальную сумму подмассива из всего массива? Вроде все логично!
p.s программа работает,
сумму выдает,
судя по вашему условию задача решена верно если не брать в расчет пустых массивов!
ну а как её решать и к чему сводить это личное дело Вас и того кто задал Вам эту задачу!

а если не все отрицательные

то алгоритм описан в посте№2
p.p.s
вы комменты читали?

[Sparky]

вот что у меня получилось:

program sum_max;
var
   a:array[1..100] of integer;
   i,p,sum1,sum2:integer;
   fo,fi:text;
   n:integer;
   s:integer;
   
{--------------------------ïðîöåäóðà ââîäà äàííûõ-------------------------------}
procedure inputData;
begin
	assign(fi,'input3.txt');
	reset(fi);
	assign(fo,'output3.txt');
	rewrite(fo);
	readln(fi,n);
	while (not eof(fi)) do
	begin
		for i:=1 to n do
		begin
			read(fi,s);
			a[i]:=s;
		end;
	end;
end;

{--------------------------ïðîöåäóðà âûâîäà äàííûõ------------------------------}
procedure outputData;
begin
     close(fi);
     write(fo);
     write(fo,sum2);
     close(fo);
end;

{--------------------ôóíêöèÿ íàõîæäåíèÿ ìàêñèìàëüíîãî ýëåìåíòà------------------}
function max:integer;
var
   m:integer;
begin
     m:=a[1];
     for i:=2 to n do
     begin
          if m<a[i] then m:=a[i];
     end;
     max:=m;
end;
{----------------------ãëàâíàÿ ïðîãðàììà----------------------------------------}
begin
     inputData;
     sum1:=0;
     sum2:=0;
     p:=0;
     for i:=1 to n do
     begin
          if(a[i]>0)and(p=0) then sum1:=sum1+a[i]
          else p:=1;
          if(p=1) then
          begin
               if(sum1>sum2) then sum2:=sum1;
               p:=0;
               sum1:=0;
          end;
    end;
    if (sum2<sum1) then sum2:=sum1;
    if sum2=0 then sum2:=max;
    OutputData;
end.