用Pascal编写

给你个简洁点的
var a:array[1..10]of longint;
sum:longint;{求和}
max,pin:integer;
begin
max:=0;
sum:=0;{初始化}
for i:=1 to 10 do
begin
read(a[i]);
sum:=sum+a[i];
if a[i]>max then max:=a[i];
end;
writeln('Max=',max,'Pin=',sum/10:0:2);设置场宽,保留两位小数
end.

program wenti;
var a,s,d,f,g,h,j,k,l,o，pj,zd:integer //设定10个变量，是需要输入的，而pj和zd是代表平均数和最大的数
begin
read（a,s,d,f,g,h,j,k,l,o）; //标准输入10个正整数
pj:=(a+s+d+f+g+h+j+k+l+o)/10; //这是平均数
if a>s then zd:=a;
if d>zd then zd:=d;
if f>zd then zd:=f;
if g>zd then zd:=g;
if h>zd then zd:=h;
if j>zd then zd:=j;
if k>zd then zd:=k;
if l>zd then zd:=l;
if o>zd then zd:=o;
readln; //停留
end.

是按标准输入的方法写的，有些繁琐- -

自我感觉描述的应该还可以~~
program ttdd8;
var max,i,x,sum:longint;{max记录最大值，sum记录10个数的和,i为控制循环变量，x为读入的第i个数}