Двумерные массивы

[Dumbl-D]

Подскажите, пожалуйста, что нужно изменить в программе чтоб итог имел такой вид.

  1  2  3  4  5  6  7  8  9 10
 11 12 13 14 15 16 17 18 19 20
 21 22 23 24 25 26 27 28 29 30
 31 32 33 34 35 36 ...

Сейчас он имеет такой вид, то есть я заполнила массив "змейкой".

   1   2   3   4   5   6   7   8   9  10
  20  19  18  17  16  15  14  13  12  11
  21  22  23  24  25  26  27  28  29  30
  40  39  38  37  36  35  34  33  32  31
  41  42  43  44  45  46  47  48  49  50
  60  59  58  57  56  55  54  53  52  51
  61  62  63  64  65  66  67  68  69  70
  80  79  78  77  76  75  74  73  72  71
  81  82  83  84  85  86  87  88  89  90
 100  99  98  97  96  95  94  93  92  91

Вот сама программа.

program srs12_1b;
 
const
  n = 10;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
 
begin
  for i := 1 to n do  
  begin
    a[1, 1] := 0;
    begin
      for j := 1 to n do
      begin
        if i mod 2 = 1 
          then
          a[i, j] := (i - 1) * n + j
        else 
          a[i, j] := i * n - j + 1;
        write(a[i, j]:4);
      end;
    end;
    writeln
  end
end.

[Serge_Bliznykov]

Подскажите, пожалуйста, что нужно изменить в программе чтоб итог имел такой вид.

  1  2  3  4  5  6  7  8  9 10
 11 12 13 14 15 16 17 18 19 20
 21 22 23 24 25 26 27 28 29 30
 31 32 33 34 35 36 ...

странно. мне казалось, что змейкой заполнить на порядок сложнее, чем просто по порядку слева направо и сверху вниз...

так?

  for i := 1 to n do  
     for j := 1 to n do
        a[i, j]  := (i-1)*n + j;

[type_Oleg]

Может быть задание было - не сформировать массив, а именно преобразовать порядок " змейка " в порядок " обычный " ?
То есть ввобще не трогать значений элементов, только переставлять их.

[Dumbl-D]

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

странно. мне казалось, что змейкой заполнить на порядок сложнее, чем просто по порядку слева направо и сверху вниз...

так?

  for i := 1 to n do  
     for j := 1 to n do
        a[i, j]  := (i-1)*n + j;

Просто на змейке зациклилась, вот и не искала путей легче(
Да, так, спасибо большое))