Вывод массива "наискосок" Опции

[seva706]

Дан массив целых чисел вывести его примерно так:
Значение элемента соответствует номеру ячейки в исходном массиве:

1 2 6
3 5 7
4 8 9

[Lapp]

А ты уверен, что число элементов всегда будет равно полному квадрату?
Короче, вот:

uses CRT;

const
  N=20; {длина массива}
  s=4;  {размер поля вывода числа}

var
  a:array[1..N]of integer;
  i,j,k,x,y,M:integer;

begin
  ClrScr;
  for i:=1 to N do a[i]:=i; {автоматическая инициализация массива последовательными числами}
  M:=Trunc(Sqrt(N-1))+1;
  k:=1;
  for i:=1 to M do for j:=1 to i do begin
    if Odd(i) then begin
      x:=j;
      y:=i-j+1;
    end
    else begin
      x:=i-j+1;
      y:=j
    end;
    GoToXY(x*s,y);
    if k<=N then Write(a[k]);
    Inc(k)
  end;
  for i:=M-1 downto 1 do for j:=1 to i do begin
    if Odd(i) then begin
      x:=j+M-i;
      y:=i-j+1+M-i;
    end
    else begin
      x:=i-j+1+M-i;
      y:=j+M-i
    end;
    GoToXY(x*s,y);
    if k<=N then Write(a[k]);
    Inc(k);
  end;
  ReadLn
end.