масив в паскале

[microlab]

Так уважаемые програмисты помагите написать прогу на заполнение двух мерного массива при помощи каждый следуюший член массива больше предыдушего в 2 раза,а расположение элементов массиво должно быть улитко образной формы Пример
3 6 12
384 768 24
192 96 48
P.S. первый элемент вводиться с клавы и размерность матрицы произвольная

[Sazary]

Уже решал подобную задачу здесь на форуме (Думаю, не я один).

uses crt;

var
a : array[1..100,1..100] of longint;
i,j,maxi,mini,minj,maxj,kk,el : longint;
m,n : integer;

begin
clrscr;
write('Enter m: ');
readln(m);
write('Enter n: ');
readln(n);
write('Enter first element: ');
readln(el);

minj := 1;
maxj := n;
kk := 1;
mini := 1;
maxi := m;
repeat
  for j:=minj to maxj-1 do
  begin
   a[mini,j] := el;
   el := el*2;
   inc(kk);
  end;
  inc(j);
 for i:= mini to maxi-1 do
  begin
   a[i,maxj] := el;
   el := el*2;
   inc(kk);
  end;
  inc(i);
 for j:= maxj downto minj+1 do
  begin
   a[maxi,j] := el;
   el := el*2;
   inc(kk);
  end;
 for i:= maxi downto mini+1 do
  begin
   a[i,minj] := el;
   el := el*2;
   inc(kk);
  end;
 inc(mini);
 inc(minj);
 dec(maxi);
 dec(maxj);
{----}
 if (m=n) and odd(m) and (minj=maxj) then
  begin
  a[mini,minj] := el;
  break;
  end;
{----}
until kk>=m*n;

for i:=1 to m do
 begin
 for j:=1 to n do
  write(a[i,j]:9);
 writeln;
 end;


readln;
end.

Пример ввода:

Enter m: 4
Enter n: 5
Enter first element: 2
        2        4        8       16       32
    16384    32768    65536   131072       64
     8192  1048576   524288   262144      128
     4096     2048     1024      512      256

upd Выяснилось, что если матрица квадратная с нечетной стороной (3x3,5x5), то не считается элемент в центре.. Хм..
В общем, добавил проверку (внизу цикла). Теперь все нормально.

[microlab]

спасибо большое

[capta1n]

программа интересная, но от массивов уже тошнить начинает ) где же мои любимые объекты ))