当前位置：/home/讨论/P1339 羽毛/求解

个人通过/递交:51/108(47%) ​

ffffffff12138

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

yugeyang

回复 评论于刚刚

当前位置：/home/讨论/P1339 羽毛/求解

个人通过/递交:51/108(47%) ​

ffffffff12138

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

yugeyang

回复 评论于刚刚

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

yugeyang

回复 评论于刚刚

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

当前位置：/home/讨论/P1339 羽毛/求解

个人通过/递交:51/108(47%) ​

ffffffff12138

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

yugeyang

回复 评论于刚刚

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

求解 评论 发表于2014-05-04 18:26

求解啊
program life;
var
n,i,j,max,sum:longint;
ipt:array[1..20000] of longint;
function maxer(x,y:longint):longint;
begin
if x>y then maxer:=x
else maxer:=y;
end;
begin
readln (n);
for i:=1 to n do
begin
readln (ipt[i]);
inc (sum,ipt[i]);
end;
max:=ipt[1]+ipt[n];
for i:=2 to n do
max:=maxer(max,ipt[i]+ipt);

writeln (maxer(max,trunc(sum/(n div 2))+1));
end.
编译失败啊

yugeyang

发表评论

需要更丰富的内容输出？编辑器快速入门 | Markdown详细帮助
[Ctrl+Enter] 预览

ffffffff12138

回复 评论于2014-05-04 18:26

22222222222222

发表评论

没有更多评论 ╮(╯▽╰)╭

UPYUN

评测机们
◦Jtwd2
◦树形图设计者
◦上海红茶馆
◦VijosEx

Vijos 2.0 动态
◦2014-9-16 网络维护
◦2014-9-25 备案完毕
◦2014-9-28 更换服务器
◦2014-11-28 微小更新

实验室 | API | 博客 | 帮助 | 隐私 | 联系 | 关于 | 沪ICP备14040537号

© Copyright Vijos, a1520eb beta, in 5.92613 ms

22222222222222