Заполнение массива по спирали Опции

[Alexdel]

Всем привет! требуется написать прогу для заполнения прямоугольной таблицы размерами n*n по спирали числами от 1 до n*n. Я вот тут кое-что написал но работает не так, как надо... Мозги уже кипят... Помогите плиз кто чем может... Хотя бы намёк сделайте=)

[Lapp]

Мозги уже кипят... Помогите плиз кто чем может... Хотя бы намёк сделайте=)

Вот, глянь.
Я тут изменил названия переменных. А то, ты в условии говоришь одно, а в решении - другое.. Зачем? Надо стараться сохранять буковки, как они есть.

program task4;
const
  m= 20;
var
  a: array[1..m, 1..m] of integer;
  i,j, n, k: integer;
begin
  k:=1;
  write('vvedite razmer matricy (ot 1 do ',m,'): ');
  ReadLn(n);

  for i:=1 to (n+1) div 2 do begin   {исправлено}
    for j:=i to n-i+1 do begin
      a[i,j]:=k;
      Inc(k);
    end;
    for j:=i+1 to n-i+1 do begin
      a[j,n-i+1]:=k;
      Inc(k);
    end;
    for j:=n-i downto i do begin
      a[n-i+1,j]:=k;
      Inc(k);
    end;
    for j:=n-i downto i+1 do begin
      a[j,i]:=k;
      Inc(k);
    end;
  end;

  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:5);
    WriteLn
  end;
  readln;
end.

М

Тему переношу в Задачи..

Добавлено через 2 мин.
Еще одно: тебе пришлось ставить два ReadLn в конце, потому что ты читал входные данные Read'ом, но вводил с энтером. Этот энтер сохранялся и съедал первый ReadLn. Если ввод заканчивается энтером - читай его ReadLn'ом.

Добавлено через 9 мин.
Упс!.. Моя прога не заполняет центральный элемент при нечетном n.
Сейчас исправим..

Добавлено через 2 мин.
Собственно, исправление совсем небольшое. Надо во внешнем цикле верхний предел изменить на (n+1) div 2.
Я это сейчас сделаю прямо в том коде..