program exams(input,output); const n=3; type alfa=packed array[1..15]of char; student=record name:alfa; socre:real; grade:char; end; studenta=array[1..n]of student; var students:studenta; ave:real; i:integer; m:1..15; begin for i:=1 to n do with students[i] do readln(socre,name[m]); ave:=0; for i:=1 to n do ave:=ave+students[i].socre; ave:=ave/n; writeln('name':10,'socre':15,'grade':10); for i:=1 to n do with students[i] do begin if socre>=ave + 10 then grade:='A' else if socre>=ave-10 then grade:='B' else grade:='C'; writeln(name:15,socre:10:1,grade:8) end{with} end.
const
n=3;
type
alfa=packed array[1..15]of char;
student=record
name:alfa;
socre:real;
grade:char;
end;
studenta=array[1..n]of student;
var
students:studenta;
ave:real;
i:integer;
m:1..15;
begin
for i:=1 to n do
with students[i] do
readln(socre,name[m]);
ave:=0;
for i:=1 to n do
ave:=ave+students[i].socre; ave:=ave/n;
writeln('name':10,'socre':15,'grade':10);
for i:=1 to n do
with students[i] do
begin
if socre>=ave + 10
then grade:='A'
else if socre>=ave-10
then grade:='B'
else grade:='C';
writeln(name:15,socre:10:1,grade:8)
end{with}
end.
要认真