Question

《pascaL语言教程》for循环语句试题答案

编写一个评分程序，接受用户输入10个选手的得分（0-10分），然后去掉一个最高分和一个最低分，求出某选手的最后得分。（平均分）

输入30个学生成绩，分别统计成绩在85-100分，60-85分，60分以下，各分数段中的人数。

Answer 1

咱们可能是同一个学校的，因为今天晚上我要做的作业刚好就是这个。
刚做完，百分之百正确。明天照着抄就可以了。
第九题：
program pingfen;
VAR a,max,min,i:integer;
s:real;
begin
readln(a);
max:=a;
min:=a;
s:=a;
for i:=2 to 10 do
begin
readln(a);
s:=s+a;
if a>max then max:=a;
if a<min then min:=a;
end;
s:=(s-min-max)/8;
writeln(s:5:3);
readln;
end.

第十题：
program chengji;
VAR q,w,e,a,i:integer;
begin
q:=0;
w:=0;
e:=0;
for i:=1 to 10 do
begin
readln(a);
if a>85 then q:=q+1
else if a>60 then w:=w+1
else if a<60 then e:=e+1;
end;
writeln(' 85-100: ',q:5,' 60-85: ',w:5,' 0-60: ',e:5);
readln;
end.