回帖：Program numbers;
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
Write('Input File Name:'); Readln(fi);
Write('Output FIle Name:'); Readln(fo);
Assign(Input,fi); Assign(Output,fo);
Reset(Input); Rewrite(Output);
Readln(n,m);
For i:=1 to n do
Readln(h);
Close(Input);
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