求noip2007普及组复赛试题及答案主要是答案,试题可有可无.(谢谢拉```要pascal的 ).

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 06:28:14
求noip2007普及组复赛试题及答案主要是答案,试题可有可无.(谢谢拉```要pascal的 ).

求noip2007普及组复赛试题及答案主要是答案,试题可有可无.(谢谢拉```要pascal的 ).
求noip2007普及组复赛试题及答案
主要是答案,试题可有可无.
(谢谢拉```要pascal的 ).

求noip2007普及组复赛试题及答案主要是答案,试题可有可无.(谢谢拉```要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]