1. 【采摘桃形李】 （3+3+3+3+3=15 分）
嵊州市金庭镇，为书圣王羲之晚年归隐之地，同时 也是一种叫“桃形李”水果的著名产区。每年7月底到 8月初，桃形李就成熟了。它从外表看似桃形，果皮深红色，并覆有白色果粉，果肉紫红，口感爽甜、脆嫩、可口，兼有桃李之风味，还有淡淡清香，味道极佳，因 此被誉为“江南名果” 。
桃形李成熟的季节，也是嵊州市金庭镇最为热闹的 时候，小镇集市上，乡村小路边上，果园边上，都是呦喝着卖李的果农，而通往小镇的各条公路上，车流量大增，都是从全国慕名前来采摘桃形李的“自驾游”旅客。
笑笑家果园里也种这种果树，每当成熟的时候，果 树上就会结出n个桃形李，笑笑就会帮父母采摘桃形李，然后到集市去卖。笑笑有个30厘米高的板凳，当她不能直接用手摘到桃形李的时候，就会踩到板凳上再试试。现在已知n个桃形李到地面的高度，以及笑笑站在地面上把手伸直的时候能够达到的最高高度，请帮忙算 算笑笑能够摘到的桃形李的数目。
输入文件：plun.in
包括三行的数据。第一行为 n(n<=100)，表示结有 n 个桃形李。第二行包含 n 个 100~200 之间（包括 100 和 200）的整数（以厘米为单位） ，分别表示 n 个桃形李 到地面的高度，两个相邻的整数之间用一个空格隔开。
第三只包括一个 100—120 之间（包含 100 和 120）的数（以厘米为单位），表示笑笑站在地面上把手伸直的时 候能够达到的最大高度。
输出文件：plum.out
只有一行，这一行包括一个整数，表示笑笑能够到的桃形李的数目。
样例输入：
10
100_200_150_140_129_134_167_198_200_111
110
样例输出：
5
Program test_2013_6;
Var n,h,i,j,s:integer;
a:array[1..100] of integer;
begin
j:=0; assing(input,’plun.in’);
reset(input);
assing(output,’ plum.out’);
rewrite(output);
readln( n );
for i:=1 to n do
begin read(s);
a[i]:=s ;
end;
readln;
readln(h)
for i:=1 to n do
if h+30>=a[i] then inc(j) ;
writeln( j );
close(input);
close(output);
end.
2. 【作弊】 （3+3+3+3+3=15 分）
题目描述： 在一个大试场里， 有 n 行 m 列的考生， 笑笑和众多的同学正在考试，这时，有一部分考生作弊，当然，监考老师能发现他们。但是只有一个监考老师，他由于高度近视，只能发现与他同行同列的作弊者，而且由于监考老师年老体弱，在考试过程中无法移动。 现在已知n*m 个考生谁在作弊，请帮监考老师找一个位置，可以发现最多的作弊者（监考老师可以和某个考生同一位置） 。如果监考老师的位置上考生作弊，那么监考老师前后看，发现他在作弊，再左右看，又发现他作弊，算做发现两个作弊考生。
数据范围：
对于 50%的数据， 0<n、 m<=10， 对于 100%的数据， 0<n、m<=100，所有数据都在 longint 范围内。
样例说明： 监考老师在最中间，那个位置上的作弊者算作两 次。
输入格式：cheat.in
第一行两个数 n,m，表示试场是 n*m的，接下来的是 n*m 的矩阵，1 表示作弊，0 表示不作弊。
输出格式：cheat.out
共一行，一个数，表示最多可以发现多少作弊者。
样式输入：
5_5
0_0_1_0_0
0_0_1_0_0
1_1_1_1_1
0_0_1_0_0
0_0_1_0_0
样式输入：
10
Program test_2013_7;
Var n,m,i,j,k,d,max:longint;
s:array[1..100,1..100] of integer;
begin
assing(input,’cheat.in’);
reset(input);
assing(output,’cheat.out’);
rewrite(output);
max:=0;
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
read( a[i,j] );
readln;
end;
For for i:=1 to n do
begin
for j:=1 to n do
begin
d:=0 ;
For k:=1 to n do
If (s[k,j]=1) then inc(d);
For k:=1 to m do
If ( s[i,k]=1 ) then inc(d);
if ( d>max ) then max:=d;
end
end;
writeln(max);
close(input);
close(output);
end.