pascal编写一个竞赛评分程序.10个选手,?个评委对每个人打分, 分数规则是去掉一个最高分,去掉一个最低分,

2025-02-24 04:35:51
推荐回答(1个)
回答1:

var
a:array[1..10]of integer;
i,j,min,max,sum,ave:integer;
begin
min:=maxint;max:=0;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]>max then max:=a[i];
if a[i] sum:=sum+a[i];
end;
sum:=sum-max-min;
writeln(sum);
writeln((sum/8):0:2));
end.