Question

free pascal编程

2005年慈溪市小学生竞赛复赛试题一:得分计算器　

题目描述

学校举行校园歌曲演唱赛，共设7个评委，去掉一个最高分，去掉一个最低分，其余评
委的平均分即为选手的最终得分。试编程，输入7个评委的分数后，输出选手的最终得分。
(顶格输出，保留一位小数)

输入格式

共1行，输入7个评委的分数。

输出格式

输出文件只有1行，即为此选手的最终得分。

样例输入

8 6 7.5 5 8.5 9 7

样例输出

7.4

Answer 1

var x,s,i,max,min:integer;
begin
s:=0; max:=-1; min:=999;
for i:=1 to 7 do
begin
read(x);
inc(s,x);
if x>max then max:=x;
if x<min then min:=x;
end;
writeln((s-max-min)/5:0:1);
end.

Answer 2

var
i:longint;
x,t,max,min:real;
begin
t:=0;
max:=0;
min:=100;
for i:= 1 to 7 do
begin
read(x);
t:=t+x;{不管怎样先加上再说}
if x>max then max:=x; {求最高分}
if x<min then min:=x; {求最低分}
end;
write(((t-max-min)/5):2:2);{去掉最高分和最低分再除以五求平均分}
end.
这是最简短、简单，占内存最小，速度最快的方法，无需排序和数组以及过多循环，望采纳。