fabeetle游戏网
手机版
收藏本站
手机版
收藏本站
东帆题库 3.8.1
类型：主题美化 平台：安卓
大小：346MB 时间：2024-05-08
东帆题库目录
这个是江西的，四川的一般是老师发~！
第一题
program pair;
var m,n,i,j,s,t:longint;
a:array[1..46] of longint;
b:array[1..46] of longint;
begin
{assign(input,'pair.in');
assign(output,'pair.out');
reset(input);rewrite(output);}
read(n);
m:=n*(n-1) div 2;
s:=0;
for i:=1 to m do
begin
read(a[i]);
s:=s+a[i];
end;
s:=s div 2;
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i]
2005年4月-2009年9月计算机等级考试二级VF真题汇总含答案
