比赛 HAOI2009 模拟试题1 评测结果 AWWWWWWWWAWWWWWWWWWW
题目名称 劣质编码 最终得分 10
用户昵称 苏轼 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-04-21 11:26:37
显示代码纯文本
{
 haoi2009 moni1 t1 codez
 rp++
 time:2009.4.21
}
program cch(input,output);
var
 i,n,max:longint;
 s:array[1..50] of string;
begin
 assign(input,'codez.in');
 assign(output,'codez.out');
 reset(input);
 rewrite(output);
 readln(n);
 for i:=1 to n do readln(s[i]);
 if (n=1)or(n=2) then writeln(-1)
  else
   begin
    max:=0;
    for i:=1 to n do
     if length(s[i])>max then max:=length(s[i]);
    writeln(max);
   end;
 close(input);
 close(output);
end.