Pascal语言实现如下var aarray16of longinti，max，minlongintmeanrealbegin max=a1min=a1mean=0for i=1 to 6 do begin readai 输入6位同学的成绩 mean=mean+ai。
任务编写程序实现同学通讯录的管理，每个同学的通讯录基本信息包括姓名身份证号码电话和住址要求给用户提供功能界面，根据用户的选择，实现添加查找显示删除某个记录 任务编写程序实现同学通讯录的管理，每个同学的通讯录。
include ltstdioh struct student char szName100 int score 成绩 等号重载 student operator=student st sprintfszName， stszName score = stscore return。
计算机编程只有多打代码，才能从中找到规律期初的时候可以不明白只要跟着老师一起打代码一起多练习，慢慢就会由记住理解，如果是想从事编程的同学，可以把写过的代码存到自己的文本文档里，这也就能知道我们的代码量，为以后找工作做准备。
includeltstdioh int main int ifloat grade，sum=0，aveprintfquotA program to calculate the 10 students grade\nquot fori=1ilt=10i++ printfquotPlease input the next student\#39s gradequotsca。
includequotstdiohquotincludequotstdlibhquotvoid fun1double a，int ndouble sumint isum=00fori=0iltni++sum=sum+aiprintfquot 平均分是 %2f\nquot，sumn void fun2double a，int n。
max=0min=1e99sum=0for i=0ilt10i++ scanfquot%lfquot，aif amax max=aif altmin min=asum+=a printfquot最大%lf\nquot，maxprintfquot最小%lf\nquot，minprintfquot平均%lf\n。
1你我的千年友情，隔了唐朝的风，宋朝的雨，明朝的月，清朝的星，依然有增无减抒不完海誓山盟，续不尽旷世情缘！2春有牡丹，夏有荷花，秋有芙蓉，冬有梅花牡丹荷花芙蓉梅花使四季拥有最美好的事物和心情。
