Pascal成绩查阅问题

Question

（10分）读入全班同学的成绩，然后输入某位学生的学号，输出该学生的成绩，如学号为负数则退出，并计算平均成绩。

（加10分）读入学生的学号、成绩，计算平均成绩。然后计算每个学生的成绩与平均成绩的差，并给出每个学生的等级，若高出平均分10分以上为A，与平均分相差10分以内为B，其余为C。最后输出每个学生的学号、成绩、等级。
过程要详细！！！！！

Answer 1

第一题：

type
student=record
no:integer;
score:byte;
end;
var
s:array[1..1000] of student;
n,i,j:integer;
begin
readln(n);
for i:=1 to n do readln(s[i].no,s[i].score);
while true do begin
write('please input No:');readln(j);
if j<0 then break;
for i:=1 to n do if s[i].no=j then begin
writeln(s[i].score);
break;
end;
end;
end.

第二题：
type
student=record
no:integer;
score:byte;
diff:real;
class:char;
end;
var
s:array[1..1000] of student;
n,i,j:integer;
average:real;
begin
readln(n);
for i:=1 to n do readln(s[i].no,s[i].score);
average:=0;
for i:=1 to n do average:=average+s[i].score;
average:=average/n;
for i:=1 to n do begin
s[i].diff:=s[i].score-average;
if s[i].diff>10 then s[i].class:='A'
else if s[i].diff<-10 then s[i].class:='C'
else s[i].class:='B';
end;
for i:=1 to n do writeln(s[i].no:6,s[i].score:4,s[i].class:1);
end.追问

要求综合在一起

本回答被提问者和网友采纳