[qfir]

ja na maturze nie zrobilem tego zadania, ale jak przyszedlem do domu to siadlem i wykombinowalem cos takiego (jak ci sie chce to mozesz to przeanalizowac):

uses crt,dos;
const L=10000;
      PLIK='c:\3.txt';
type tab=array[1..L] of integer;
var t:tab;
    f:text;
    i,j,max:integer;
    h,m,s,s1,h2,m2,s2,s12:word;

procedure czytaj;
var bufor:integer;
begin
     for i:=L downto 0 do t[i]:=0;
     assign(f,PLIK);
     reset(f);
     repeat
           readln(f,bufor);
           if i=0 then
              begin
                   i:=i+1;
                   t[i]:=t[i]+bufor
              end
           else
               begin
                    if (bufor<>0) then
                    if (t[i]/bufor) <0 then i:=i+1;
                    t[i]:=t[i]+bufor
               end;
     until eof(f);
     close(f)
end;

procedure licz;
var k,l,bufor:integer;
begin
max:=t[1];
bufor:=0;
     for j:=i downto 1 do
         begin
              l:=1;
              repeat
                    for k:=l to j+l-1 do bufor:=bufor+t[k];
                    l:=l+1;
                    if(bufor>max) then max:=bufor;
                    bufor:=0;
              until l>i;
         end;
end;


begin
clrscr;
czytaj;
licz;
writeln('wynik=====>',max);
readln
end.

Ten program obliczal to zadanie 11 minut.

Podliczajac:
1 zad - 1h
2a,b - 1h i 10min
zostaje 20 minut na zad 2c i cale 3 , a trzeba jeszcze wziasc pod uwage, ze teraz sobie siedzimy w domu i sie nie musimy stresowac