Заполнить массив А размером п*m следующим образом, например, n=5 и m=5:
 1       2       3       4       5
10      9       8       7       6
11    12     13     14     15
20     19     18     17     16
21     22     23     24     25
То есть заполняется в виде "змейки".

{Для того, чтобы заполнить, надо вывести правило заполнения, а оно в данном случае будет таким: если ряд нечетный (то есть номер строки - нечетное число), то A [i,j]=(i-1)*m+j, иначе (то есть когда строка четная) A[i,j]==i*m-j+l.
По этому правилу и составляем процедуру заполнения. }

program prim 1 ;
  uses crt;
  type mas=array[1..100,1.. 100] of integer;
  var a:mas;
      i,j,n,m:integer;
begin
  clrscr;
  write('n=m=');readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
{Заполняем массив по выведенному правилу заполнения и выводим его на экран.}
          if i mod 2 =1 then
            a[i,j]:=(i-1)*m+j
            else a[i,j]:=i*m-j+1;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
end.