Дан массив целых чисел вывести его примерно так:
Значение элемента соответствует номеру ячейки в исходном массиве:
1 2 6
3 5 7
4 8 9
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.