ave:=ave+students[i].socre;{Field identifier expected}
//                           ~~~~~不是score

解决方案 »

  1.   

    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.
      

  2.   

    identifier//标识符不要急
    要认真
      

  3.   

    zswang真是细心人,都怪我不用心。万分感谢。