Question

一道pascal题目

正在上一年级的小卡卡最近开始学习数的加法运算，一天老师为了测试大家对加法的掌握情况，让同学们做了一个有趣的游戏。老师在黑板上从左到右写下了n个大于零的整数，老师接下来找出n个同学完成下面的计算任务。第一个同学在黑板上抄下最左边的数字，第二个同学负责将第一个同学写下的数字，加上老师写下的左边第二个数字所得到的数写在了黑板上。以此类推，第m个同学将前面第m-1个同学所写下的数字加上老师在黑板上写下的从左边数的第m个数字所得之和，并将结果写到黑板上。当计算完成这n个数字之后，老师又让同学从最右边开始按相同的方法再次计算出n个数值。最后老师让同学们找出这所有数字当中共有多少个是相同的。

Answer 1

对于你的最后一个问题~在所有数中，总共有多少个数相同？有异议~
比如 1 1 1 2 2 这类数，到底回答有3个数相同呢？还是2个数相同？还是总共5个？这点是表达不清哈
所以呢~在你题目最后一问不确切的情况下 我只考虑存在1 1 1 2 3这类情况~~~（当然要考虑1 1 1 1 2 2 2 3 3 3）这类情况，等你把题表达清楚了~自己改改就行了~
代码如下~
program records;
var b:set of 1..255;//集合定义
n,x,i,s,d:integer;//n为总数,x为读入变量,s为求和,d为记录相同的个数
begin
readln(n);
i:=0;s:=0;b:=[];d:=1;//初始化,d为1,因为自身是和自身相同的~
while i<n do
begin
i:=i+1;
read(x);
if not(x in b) then b:=b+[x]//不在集合中，加入
else d:=d+1;//否则记录+1
s:=s+x;//求和
writeln('Line',i,':',s:3);//输出
end;
writeln('Totally same numbers');
write(d);
end.
PS：我开始已经说了哦~由于你的问题不是很清楚,导致无法给出一个确切的程序
上述代码只处理2 1 3 1 1 1等这类的~不处理1 1 1 2 2 2 3 3 3 3 4 4 4 4等等这类的
因为集合处理与顺序无关,所以你要从右边开始,只需要把数据倒着输入就行了~如果你硬要顺序输入，那么自己定义一个数组，把它们倒序排列~（效果一样哦）
时间复杂为n
望采纳~谢谢

追问

【输入文件】add.in
第共两行，第一行为n（1<n<100），第二行为n个数，用空格隔开，每个数的大小在0～200之间。
【输出文件】add.out
第一次与第二次计算出的数值中相同的个数
【样例文件】
add.in
7
3 6 2 1 4 5 2
add.out
3

追答

program records;
var b:set of 1..255;
b1:array[1..255] of integer;//因为你说要左右比较，所以加一个数组
n,x,i,s,d:integer;
begin
readln(n);
i:=0;s:=0;b:=[];
while i=1 do
begin
s:=s+b1[i];
writeln('LineR',n-i+1,':',s:3);//输出右边计算结果
if s in b then d:=d+1;//进行记录
i:=i-1;
end;
writeln('Totally same numbers');
write(d);
end.

Answer 2

汗