比赛 |
不平凡的世界 |
评测结果 |
WAWWWWWWWW |
题目名称 |
不平凡的boss |
最终得分 |
10 |
用户昵称 |
darkness |
运行时间 |
1.384 s |
代码语言 |
Pascal |
内存使用 |
0.15 MiB |
提交时间 |
2015-11-05 10:51:18 |
显示代码纯文本
var n,i,j,k,tot,t:longint;
a,b:array[1..3] of longint;
function min(x,y,z:longint):longint;
var temp:longint;
begin
if x<y then temp:=x else temp:=y;
if (temp>z) then temp:=z;
exit(temp);
end;
function min1(x,y,z:longint):longint;
var temp,tt:longint;
begin
if x<y then begin temp:=x; tt:=1;end
else begin temp:=y;tt:=2;end;
if (temp>z) then begin temp:=z;tt:=3;end;
exit(tt);
end;
begin
assign(input,'playwithboss.in');
assign(output,'playwithboss.out');
reset(input);
rewrite(output);
tot:=0;
readln(n);
fillchar(b,sizeof(b),0);
for i:=1 to n do
begin
readln(a[1],a[2],a[3]);
j:=min(a[1],a[2],a[3]);
k:=min1(a[1],a[2],a[3]);
if (b[k]<j) then begin
inc(tot,j-b[k]);
b[k]:=j; end;
end;
writeln(tot);
close(input);
close(output);
end.