Диагонали двумерной матрицы

@BlueScreen666 · Регистрация: 27.11.2016

Author24 — интернет-сервис помощи студентам

Вот помогите переделать с первой диагональю такой же, а дальше снизу вверху и снова сверху вниз следующую

Pascal

var a:array[1..10,1..10]of integer;
n,k,i,j,o:integer;
BEGIN
readln(n);
o:=1;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if j=i+k-1 then begin a[i,j]:=o; o:=a[i,j]+1;  end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5,' ');
writeln;
end;
END.

@Puporev · 26.12.2017, 13:11

Pascal

var a:array[1..10,1..10]of integer;
n,k,i,j,o:integer;
BEGIN
readln(n);
o:=1;
for k:=1 to n do
if odd(k) then
 begin
  for i:=1 to n do
  for j:=1 to n do
  if j=i+k-1 then
   begin
    a[i,j]:=o;
    o:=a[i,j]+1;
   end;
 end
else
 begin
  for i:=n downto 1 do
  for j:=n downto 1 do
  if j=i+k-1 then
   begin
    a[i,j]:=o;
    o:=a[i,j]+1;
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
END.

	26.12.2017, 13:11