求noip2007普及组复赛试题及答案
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/16 23:23:18
求noip2007普及组复赛试题及答案
主要是答案,试题可有可无.
(谢谢拉```要pascal的 ).
主要是答案,试题可有可无.
(谢谢拉```要pascal的 ).
第一题
program scholar(input,output);
var a,b,c,id,s:array[1..300]of integer;v:array[0..0]of boolean;
i,j,k,t,m,n,x,y:integer;
begin
assign(input,'scholar.in');
assign(output,'scholar.out');
reset(input);rewrite(output);
readln(n);
for i:=1 to n do
begin readln(a[i],b[i],c[i]);id[i]:=i;end;
for i:=1 to n do
s[i]:=a[i]+b[i]+c[i];
for i:=1 to n-1 do
for j:=i to n do
begin
if s[i]
program scholar(input,output);
var a,b,c,id,s:array[1..300]of integer;v:array[0..0]of boolean;
i,j,k,t,m,n,x,y:integer;
begin
assign(input,'scholar.in');
assign(output,'scholar.out');
reset(input);rewrite(output);
readln(n);
for i:=1 to n do
begin readln(a[i],b[i],c[i]);id[i]:=i;end;
for i:=1 to n do
s[i]:=a[i]+b[i]+c[i];
for i:=1 to n-1 do
for j:=i to n do
begin
if s[i]