把下列数据读入数组
5
XM01 Peter 13
XM02 Tom 12
XM03 Jack 15
XM04 John 11
XM05 Li 15
type
Student=record
StudentID:string;
StudentName:string;
StudentAge:longint;
end;
var
s:Student;
a:array[1..1000] of Student;
begin
{
s.StudentID:='XM120501';
s.StudentName:='Li';
s.StudentAge:=15;
a[1].StudentID:='XM120502';
writeln(a[1].StudentID);
writeln(a[1]);//?
writeln(s.StudentName);
}
for i:=1 to 5 do
begin
a[i].StudentID:=...
a[i].StudentName:=...
end;
end.