回帖：Const Maxn=50;
Maxm=9;
Var h:array[1..Maxn] of Integer;
g:array[1..Maxn,1..Maxn] of LongInt;
Fmin,Fmax:array[1..Maxn,1..Maxm] Of Longint;
n,m,i,j,k,l:Integer;
Max,Min,Tmax,Tmin,s:Longint;
fi,fo:String;
Procedure readfile;
Begin
Readln(n,m);
For i:=1 to n do
Readln(h);
End;
Procedure init;
Begin
For i:=1 to n do
For j:=i to n do
Begin
s:=0;
For k:=i to j do s:=s+h;
s:=s mod 10;
If s