xh 2008-11-08 02:10:00
点我顶贴
收藏
删除
var i,j,k,m,n,w,p:longint；
d,f:array[0..1000,0..1000] of longint；
g:array[0..1000] of longint；
begin
readln(n,m,p,w)；
for i:=1 to m do
begin
for j:=1 to n do read(d[i,j])；
readln；
end；
writeln(’a’)；
end.
这个程序后七个点都超时了~~无语ing...