level 5
var
a:array[1..100,1..100] of longint;
i,j,n:longint;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
if j=n then readln(a[i,j])
else read(a[i,lj]);
end.
2016年11月25日 02点11分
level 9
level 2
直接这样不就行了：
var a:array[1..100,1..100]of longint;
i,j,n,m:longint;
begin readln(n,m);
for i:=1 to n do for j:=1 to m do read(a[i,j]);
end.
2016年11月26日 03点11分
3
var a:array[1..100,1..100]of longint;
i,j,n,m:longint;
begin readln(n,m);
for i:=1 to n do for j:=1 to m do read(a[i,j]);
end.