Pascal语言实现如下var aarray16of longinti，max，minlongintmeanrealbegin max=a1min=a1mean=0for i=1 to 6 do begin readai 输入6位同学的成绩 mean=mean+ai。任务编写程序实现同学通讯录...