数组的启蒙教育

 关于10个学生的学号 成绩 成绩等第

  ║program ch327;                                                                ▲
║const                                                                         ■
║n=10;                                                                         ▒
║var                                                                           ▒
║i:integer;                                                                    ▒
║aver:real;                                                                    ▒
║sum:real;                                                                     ▒
║number:array[1..n]of integer;                                                 ▒
║score:array[1..n]of real;                                                     ▒
║begin                                                                         ▒
║sum:=0;                                                                       ▒
║for i:=1 to n do                                                              ▒
║   begin                                                                      ▒
║   write(i,'st number and score');                                            ▒
║   readln(number[i],score[i]);                                                ▒
║   sum:=sum+score[i];                                                         ▒
║   end;                                                                       ▒
║aver:=sum/10;                                                                 ▒
║                                                    ▒
║for i:=1 to n do                                                              ▒
║   begin                                                                      ▒
║   write(number[i],'  ',score[i]);                                            ▒
║   if (score[i]-aver>=10) then                                                ▒
║       writeln('A')                                                           ▒
║       else if (score[i]-aver<10) and (score[i]>aver)then                     ▒
║        writeln('B')                                                          ▒
║        else                                                                  ▒
║        writeln('C');                                                         ▒
║                                                                              ▒
║   end                                                                        ▒
║                                                                              ▒
║end.                                                                          ▒
║                                                                              ▼
让学生明白数组也是一种变量。只是功能强一些罢了，把一些功能相同的抽屉连在

一起存放相同类型的数据。每一个抽屉里放的是一个元素。