1樓：匿名使用者
vara: array[1..100] of integer;
n, i, ans, len, tmp, beg: integer;
begin
read(n);
for i := 1 to n do
read(a[i]);
tmp := 0;
ans := 0;
len := 0;
beg := 0;
for i := 1 to n do
begin
if tmp + a[i] > ans thenbegin
ans := tmp + a[i];
len := i - beg;
endelse if (tmp+a[i]=ans) and (i - beg > len) then
len := i - beg;
if tmp + a[i]<0 thenbegin
beg := i;
tmp := 0;
endelse
tmp := tmp+a[i];
end;
writeln(ans, ' ', len);
end.
2樓：生活如歌
好久沒接觸這個詞了，現在還有人學這個嗎？
pascal郵票問題程式設計題目郵票問題
如樓上所說這個子程式其實就是求能構成的最大面值，對於每個面值的郵票，選擇要幾張，並且郵票用光了就結束，結果就在money裡 其實沒有太大的意義 讓你體會一下回溯的思想 這個子程式其實就是求能構成的最大面值，對於每個面值的郵票，選擇要幾張，並且郵票用光了就結束，結果就在money裡，通過money就可...
pascal題目，pascal題目
var a array 0 1 of integer c char begin while not c do begin read c if c in 0 1 then inc a c end writeln a 0 a 1 end.varch char k,r longint begin read...
Pascal程式設計問題
那位仁兄的答案是錯的額，你判斷閏年有問題，真正閏年的定義是 年號是400的整倍數或4的整倍數 但非100的倍數 也就是說2000是閏年，2004年也是閏年，但3000年不是閏年。vara,b,c integer begin readln a,b casebof 1,3,5,7,8,10,12 c 3...