maxint的使用

maxint的使用
maxint是一个常量,就是最大整型(integer)
maxint=32767 (2^15-1)
由于Min要取最小值，所以先赋为最大，找到比他小的就改变，Max同理
Max是当前的最大值

maxint是一个常量,就是最大整型的意思嘛~
maxint=32767 (2^15-1)
另外还有maxlongint,最大长整型.
maxlong=2741483647 (2^31-1)
program p6_8;
var a:array[0..19] of integer;
s,max,min:integer; .
smax,smin:integer;
i:integer;
begin writeln('Please read 20 datas');
for i:=0 to 19 do read(a);
max:=-maxint;min:=maxint; {这个maxint赋值什么值给max和min}
for i:=0 to 19 do
begin
s:=a+a[(i+1) mod 20]+a[(i+2) mod 20]+a[(i+3) mod 20];
if s>max then {这里比较大小，max的值确定是多少}
begin
max:=s;smax:=i;
end;
if s<min then
begin
min:=s;smin:=i;
end;
end;
write('max:');
write(a[smax]:2);for i:=1 to 3 do write('+',a[(smax+i) mod 20]:2);
write('=',max);
writeln('Start from',smax+1);

write('min:');
write(a[smin]:2); for i:=1 to 3 do write('+',a[(smin+i) mod 20]:2);
write('=',min);
writeln('Start from',smin+1);
end.