求高手！！请用FOR语句来编译下列问题？谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/28 02:56:40
1.编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。
2． 用一张一元票换1分、2分和5分的硬币，每种至少一枚， 问有哪几种换法（各几枚）？
请用PASCAL语言编译~！谢谢

var i,j,t:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]>a[i+1] then
begin
t:=a[i+1];
a[i+1]:=a[i];
a[i]:=t;
end;
a[1]:=0;
a[10]:=0;
j:=0;
for i:=2 to 9 do
begin
j:=j+a[i];
end;
j:=j/7;
writeln(j);
end.

行不?

1.#include <stdio.h>
void main()
{
int a[10];
int i,j;
int b;
int count=0;
float avrage;
for(i=0;i<10;i++)
scanf("%d",a+i);
for(i=9;i>0;i--)
for(j=0;j<i;j++)
{
if(a[j]>a[j+1])
{
b=a[j];
a[j]=a[j+1];
a[j+1]=b;
}

}
for(i=1;i<9;i++)
count+=a[i];
avrage=(float)count/8;
printf("%f",avrage);

}
2.
#include <stdio.h>
void main()
{
int i,j,k;
in