noip2009普及组复赛第四题的n^2解法 我只有n^3的,谁能帮我改改 程序如下:Var jiazhi,f:array[0..10000]of longint;a:array[1..10000,1..10000]of longint;n,m,p,sum,op,g,i,j,k,i2,j2:longint;Beginreadln(n,m,p);for i:=1 to n dofor j:=1

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 00:35:56
noip2009普及组复赛第四题的n^2解法 我只有n^3的,谁能帮我改改 程序如下:Var jiazhi,f:array[0..10000]of longint;a:array[1..10000,1..10000]of longint;n,m,p,sum,op,g,i,j,k,i2,j2:longint;Beginreadln(n,m,p);for i:=1 to n dofor j:=1

noip2009普及组复赛第四题的n^2解法 我只有n^3的,谁能帮我改改 程序如下:Var jiazhi,f:array[0..10000]of longint;a:array[1..10000,1..10000]of longint;n,m,p,sum,op,g,i,j,k,i2,j2:longint;Beginreadln(n,m,p);for i:=1 to n dofor j:=1
noip2009普及组复赛第四题的n^2解法 我只有n^3的,谁能帮我改改 程序如下:
Var jiazhi,f:array[0..10000]of longint;
a:array[1..10000,1..10000]of longint;
n,m,p,sum,op,g,i,j,k,i2,j2:longint;
Begin
readln(n,m,p);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
read(jiazhi[i]);
for j:=1 to m do
f[j]:=-maxlongint;
for j:=1 to m do
for i:=1 to n do
begin
g:=0; i2:=i;j2:=j;
if p

noip2009普及组复赛第四题的n^2解法 我只有n^3的,谁能帮我改改 程序如下:Var jiazhi,f:array[0..10000]of longint;a:array[1..10000,1..10000]of longint;n,m,p,sum,op,g,i,j,k,i2,j2:longint;Beginreadln(n,m,p);for i:=1 to n dofor j:=1
其实这个要重写的- -
考试时看到100%的数据n,m,p