динамическая память для двумерного массива

[Niklitel]

помогите пожплуйста написать фрагмент программы выделение динамической памяти для двумерного массива таким образом
0 □
1 □ □
2 □ □ □
3 □ □
4 □
......
до н строк

[Vanta11a]

В псевдокоде вроде так:

size_of_line = 0;
1) Если n - четное, то
1.1) Для i от 0 до n делай
1.1.1) Если i < n/2 то size_of_line++;
1.1.2) Если i >= n/2 то size_of_line--;
1.1.3) array[i] = malloc(size_of_line);

Могу ошибаться, могу заблуждаться. Все возможно.

[Niklitel]

что-то не получается

[SaLoKiN]

язык то какой?

[Niklitel]

язык с++ .....

[phomm]

Немного сложновато, но в принципе решает что надо:

procedure TMyForm.ButtonClick(Sender: TObject);
var
  n, i, j: integer;
  ar: array of array of Byte;
  s : string;
begin
  if TryStrToInt(InputBox('', 'input length', ''), n) and (n in [1..255]) then
  begin
    SetLength(ar, n);
    for I := 0 to n - 1 do
      SetLength(ar[i], n div 2 - Abs(i - n div 2) + 1 * Ord(ODD(n) or (i < (n div 2))));
    // далее уже проверка
    s := '';
    for I := 0 to n - 1 do
    begin
      for j := 0 to Length(ar[i]) - 1 do
        s := s + Inttostr(ar[i, j]) + ' ';
      s := s + #10#13;
    end;
    ShowMessage(s);
  end;
end;

То, что Вы не указали язык - Ваши проблемы, я решил на том, что мне сподручнее.

ПС. как обычно, написал пост после того, как 2 часа назад открыл тему
Переписывать на плюсы не буду работа стоит

[Stilet]

int **a=new int*[];
for(int i=0;i<n/2;i++) a[i]=new int[i+1];
for(;i<n;i++) a[i]=new int[n-i+1];

Если не ошибаюсь.