1樓：
varn,i,s:integer;
a:array [1..10000,1..2] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i,1],a[i,2]);
s:=s+a[i,2];
end;
s:=s div n;
for i:=1 to n do
if a[i,2]>s then writeln(a[i,1],a[i,2]);
end.
輸入：3 (代表有多少人）
1 3 （下面n行，是學號和成績）
2 53 4
輸出：2 5 （學號和成績）
2樓：
const n=100; //n=人數type
t1=record;
mumber:string;
points:real;
end;
varm:integer;
q,w,e:=real;
stu:array[1..n] of t1;
begin
for m:=1 to n do
begin
readln(stu[m].mumber,stu[m].points);
q:=q+stu[m].points;
end;
w:=q/n;
for m:=1 to n do
begin
if stu[m].points>w then begin writeln(stu[m].mumber);e:=e+1;end;
end;
writeln(e);
end.
沒有校驗，匆忙完成，可能有錯誤
3樓：匿名使用者
program 123;
var a:array[1..2，1..100] of integer;
b:real; c,d,e,n:integer;
begin
begin
for n :=1 to c do read(a[1,n]);
for n :=1 to c do read(a[2,n]);
end;
d:=0;
begin
for n:=1 to c do
d:=d+a[2,n];
end:
e:=d/c;
for n:=1 to c do
if a[2,n]>e then
writeln(a[1,n],a[2,n]);
end.
本人自編 僅作參考 不一定100%正確
C程式設計 輸入正整數n,再輸入n個學生的成績，計算平均分
include int main int argc,char argv printf a等的成績個數有 d個 n count a printf b等的成績個數有 d個 n count b printf c等的成績個數有 d個 n count c printf d等的成績個數有 d個 n count ...
用c語言編寫程式 從鍵盤輸入n 0《n《100 個整數
1 次數最多 2 在次數最多的基礎上，數值最大 以下為程式 include 設定最大值 define max 100 typedef struct record record int i ist int array,int index,record rd return flag int findma...
輸入一個整數n 輸出n除以3的餘數
給你說說思路吧 輸入一個數用此數除以10 得餘數，再判斷是否是偶數，是記錄下來，此數為最高位，然後，用這個數除以10 是否為0，為零 則跳出，不為零則繼續 除以10 得 餘數，再判斷，然後判斷除以10 是否為0，就這樣判斷。輸入一個三位正整數，將它反向輸出。用c語言編！include main 三位...