灵鹊做题网pascal编写一个程序
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/30 02:32:59
pascal编写一个程序
均分计算
计算比赛的得分,求去掉最高分和最低分后的平均分.
输出格式 分两行,第一行,一个正整数n（n
均分计算
计算比赛的得分,求去掉最高分和最低分后的平均分.
输出格式 分两行,第一行,一个正整数n（n
var n,i,min,max,maxi,mini,s:integer;
x:array[1..100] of integer;
ans:real;
begin
readln(n);
for i:=1 to n do read(x[i]);
min:=100;max:=0;
for i:=1 to n do begin
if x[i]>max then begin max:=x[i];maxi:=i;end;
if x[i]
x:array[1..100] of integer;
ans:real;
begin
readln(n);
for i:=1 to n do read(x[i]);
min:=100;max:=0;
for i:=1 to n do begin
if x[i]>max then begin max:=x[i];maxi:=i;end;
if x[i]