Question

pascal 语言编程： 歌唱比赛。为了丰富校园文化艺术生活，在一年一度举行的校园歌手大奖赛上，有10名裁判

为每位选手的表演打分，分值在1-100分之间。评分规则是：去掉一个最高分和一个最低分，选手最后得分是其余8个得分的平均值，结果保留一位小数。（提示：可以同时找出最大数和最小数，再求平均值。） 输入：88 76 90 92 100 30 83 85 96 97 输出：88.43、找规律。（1）有一列整数：1、3、6、10、15……。求第100项及前100项的和。（提示：用for循环。结果为：5050 171700）（2）求1*3+5*7+9*11+13*15+……97*99的值。（提示：本题既可以用for循环又可以用while或repeat循环。结果为：83275）4、完全数。古希腊人称因子的和等于它本身的数是完全数，例如28的因子是1、2、4、7、14，而1+2+4+7+14=28，所以28是一个完全数。编程输出2~1000内的所有完数。（提示：参照小学书本P93编程第5题，区别在于本题还要输出算式。）输出：6=1+2+328=1+2+4+7+14496=1+2+4+8+16+31+62+124+2485、七层宝塔。有个七层的宝塔，每层的灯数是上一层的两倍，共381盏灯，求每层有多少盏灯？（提示：本题可以用一维数组元素存储每层的灯数，最上层的灯数从1开始列举，如果不行，换成2开始……，直到每层灯数相加和为381为止。本题程序结构为repeat循环嵌套for循环。）输出：7 3（表示第7层有3盏灯）6 65 124 243 482 961 1926、智得奖品。12个人围成一圈，希望得到一份奖品。奖品得主按下面的要求产生：从第1个人开始，1-3报数，报到3的人走出圈；从他后面的人开始，重新1-3报数，报到3的人再出圈。如此重复直到圈中只剩1人，他就是获奖者。小红根据规则，动了一下脑筋，利用约瑟夫知识编写一个通用程序解决了这个问题，最后如愿以偿获得了奖品。请问他开始时站在哪个位置？（提示：可以参考补充讲义中约瑟夫问题的解题思路。）输入：12 3 输出：10 输入20 5输出:7

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏15（财富值+成长值）

Answer 1

这是第一题代码，先给你，有事找我，我现在没时间
var
max,min,sum:real;
i:longint;
a:Array[1..11]of real;
begin
max:=0;min:=maxlongint;//max是最大值,min是最小值
for i:=1 to 10 do begin
read(a[i]); //读入数据
if max<a[i] then max:=a[i];//求最大值
if min>a[i] then min:=a[i];//求最小值
end;
for i:=1 to 10 do
begin
if (a[i]=max)or(a[i]=min) then
a[i]:=-2;
end; //由于题目要求，是1..100，所以即可把最大、最小值变成负数
for i:=1 to 10 do
begin
if a[i]>0 then sum:=sum+A[i]; //累加
end;
sum:=sum /8;//求平均数
writeln(sum:0:1);//保留一位小数，几位就是:0:几
end.

追问

第三四五六题有答案吗？

追答

可以，你把你qq给我吧，有时间加你好友发给你

追问

2798856342 怎么还不发？