编一个PASCAL程序吧

来源：百度知道 编辑：UC知道 时间：2024/04/27 18:57:52
是跳水运动裁判员评分标准的

5名裁判员评分：5名裁判员打出分数以后，先删去最高和最低的无效分，余下3名裁判员的分数之和乘以运动员所跳动作的难度系数，

便得出该动作的实得分。例如5名裁判员的评分分别是 5、（5．5）、5、 5、（4．5）=15（总和）X 2.0（难度）=30（实得分）。
（注：括号里的数字是删去的无效分。下同）

……MS是干同一行的
没有调试哦
自己改改应该就出来的
var t,n,s,i,j:integer;
a:array[1..5] of integer;
begin
readln(n);（难度系数的输入）
for i:=1 to 5 do
readln(a[i]);(评分输入）
for i:=1 to 5 do
for j:=i+1 to 5 do
if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;(排序）
for i:=2 to 4 do
s:=s+a[i];(计算总和）
writeln(s*n);(乘难度，即实得分）
end.