Двумерный массив Делфи приехали

[MrMorozko]

2) Заполнить массив 6*6 по правилу:
123456
234561
345612
456123
561234
612345


Это поможете?

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, m,d,c : integer;
a : array [0..50, 0..50] of integer;
begin
m := StrToInt(Edit1.Text);
 for j:=1 to m do
   begin
         i:=c;
      d:=1;
      repeat
         a[i,j]:=d;
         inc(i);
         if i>m then
                  i:=1;
         inc(d);
      until i=c;
      dec(c);
      if c <= 0 then
         c:=m-c;
   end;
   for i:=1 to m do
   begin
         for j:=1 to m do
         StringGrid1.Cells[i,j]:=inttostr(a[i,j]);

   end;
   end;
end.

фигня получаеться

[Ybn2]

20 руб кинешь на телефон?

[MrMorozko]

Сообщение от Ybn2

20 руб кинешь на телефон?

Сам без сигарет сижу

[MrMorozko]

+1 реп поставлю ты молодец в таких задачах) а я их терпеть немогу неинтересеные они

[Ybn2]

А я без телефона (заблокирован) Подожли чуть-чуть сейчас я сделаю!

[MrMorozko]

Сообщение от Ybn2

А я без телефона (заблокирован) Подожли чуть-чуть сейчас я сделаю!

ну вот(((
спасибо

[Ybn2]

Ты еще здесь?

[MrMorozko]

Да)да здесь я

[Ybn2]

Сообщение от MrMorozko

Да)да здесь я

Так пойдет?