习题：

　　1.最佳浏览路线问题:

　　某旅游区的街道成网格状（见图），其中东西向的街道都是旅游街，南北向的街道都是林荫道。由于游客众多，旅游街被规定为单行道。游客在旅游街上只能从西向东走，在林荫道上既可以由南向北走，也可以从北向南走。阿隆想到这个旅游区游玩。他的好友阿福给了他一些建议，用分值表示所有旅游街相邻两个路口之间的道路值得浏览得程度，分值从-１００到１００的整数，所有林荫道不打分。所有分值不可能全是负值。

　　　　例如下图是被打过分的某旅游区的街道图：

　　阿隆可以从任一路口开始浏览，在任一路口结束浏览。请你写一个程序，帮助阿隆寻找一条最佳的浏览路线，使得这条路线的所有分值总和最大。

　　2..删数问题

　　 键盘输入一个高精度的正整数N，去掉其中任意S个数字后剩下的数字按左右次序组成一个新的正整数。对给定的N和S，寻找一种删数规则使得剩下得数字组成的新数最小。

　　  参考程序：　 

　　1.最佳游览路线问题

　　输入数据：输入文件是INPUT.TXT。文件的第一行是两个整数M和N，之间用一个空格符隔开，M表示有多少条旅游街（1≤M≤100），N表示有多少条林荫道（1≤N≤20000）。接下里的M行依次给出了由北向南每条旅游街的分值信息。每行有N-1个整数，依次表示了自西向东旅游街每一小段的分值。同一行相邻两个数之间用一个空格隔开。

　　输出文件：输出文件是 OUTPUT.TXT。文件只有一行，是一个整数，表示你的程序找到的最佳浏览路线的总分值。

　　Program Tour;

　　var m,n:integer;  {M为旅游街数，N为林荫道数}

　　    data:array[1..20000] of -100..100;{data是由相邻两条林荫道所分}

　　procedure Init;        {隔的旅游街的最大分值}

　　var a,b,c:integer;

　　    f1:text;

　　begin

　　  assign(f1,'input.txt');

　　  reset(f1);

　　  read(f1,m,n);

　　  for a:=1 to n-1 do read(f1,data[a]);   {读取每一段旅游街的分值}

　　  for a:=2 to m do

　　    for b:=1 to n-1 do

　　    begin

　　      read(f1,c);

　　      if c>data[b] then data[b]:=c;   {读取每一段旅游街的分值，并选择}

　　    end;          {到目前位置所在列的最大分值记入数组data}

　　  close(f1);

　　end;

　　procedure Done;

　　var a,sum,result,c:integer;

　　    f2:text;

　　begin

　　  result:=0;

　　  sum:=0;

　　  a:=0;

　　  while (a<n) do

　　  begin

　　    inc(a);                    {从数组的第一个数据开始累加，将累加所}

　　    sum:=sum+data[a];          {得到的最大分值记入result}

　　    if sum>result then result:=sum;

　　    if sum<0 then sum:=0;   {若当前累加值为负数，则从当前状态起从新}

　　  end;                             {累加}

　　  assign(f2,'output.txt');

　　  rewrite(f2);

　　  writeln(f2,result);

　　  close(f2);

　　end;

　　begin

　　  Init;

　　  Done;

　　end.