Ответы и объяснения

2013-12-28T18:28:41+00:00
Program gt;
var a:array[1..1000,1..1000]of integer;
n,i,j,k:integer;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if(i mod 2=1)then a[i,j]:=j else a[i,j]:=n-j+1;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.