noip2011初赛第四大题做法四、阅读程序写结果(共4题,每题8分,共计32分)1.constSIZE=100;varn,i,sum,x:integer;A:array[1..SIZE]of integer;beginreadln(n);fillchar(a,sizeof(a),0);for i:=1 to n dobeginread(x);inc(a[x]);end;i:=0;sum:

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/15 21:27:24
noip2011初赛第四大题做法四、阅读程序写结果(共4题,每题8分,共计32分)1.constSIZE=100;varn,i,sum,x:integer;A:array[1..SIZE]ofinte

noip2011初赛第四大题做法四、阅读程序写结果(共4题,每题8分,共计32分)1.constSIZE=100;varn,i,sum,x:integer;A:array[1..SIZE]of integer;beginreadln(n);fillchar(a,sizeof(a),0);for i:=1 to n dobeginread(x);inc(a[x]);end;i:=0;sum:
noip2011初赛第四大题做法
四、阅读程序写结果(共4题,每题8分,共计32分)
1.
const
SIZE=100;
var
n,i,sum,x:integer;
A:array[1..SIZE]of integer;
begin
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
read(x);
inc(a[x]);
end;
i:=0;
sum:=0;
while sum

noip2011初赛第四大题做法四、阅读程序写结果(共4题,每题8分,共计32分)1.constSIZE=100;varn,i,sum,x:integer;A:array[1..SIZE]of integer;beginreadln(n);fillchar(a,sizeof(a),0);for i:=1 to n dobeginread(x);inc(a[x]);end;i:=0;sum:
第一题:模拟
第二题:斐波那契数列 隔位输出
第三题:深搜
第四题: