матрица [Delphi 7]

[V0L40K_21]

кто знает как сделать такую матрицу?
n должно быть четным

[Hacker19_90]

  
k := 1;
for i := n downto 1 do
begin
    for j := k to n do
    begin
        matrix[i, j-(k-1)] := j;
    end;
    Inc(k);
end;
for i := 1 to n do
begin
    for j := 1 to n do
        Write (matrix[i,j]:4);
    Writeln;
end;

[V0L40K_21]

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

  
k := 1;
for i := n downto 1 do
begin
    for j := k to n do
    begin
        matrix[i, j-(k-1)] := j;
    end;
    Inc(k);
end;
for i := 1 to n do
begin
    for j := 1 to n do
        Write (matrix[i,j]:4);
    Writeln;
end;

Мне ее надо в StringGread вывести в Delphi

[Hacker19_90]

Мне ее надо в StringGread вывести в Delphi

Ну так а в чём проблема?

for i := 1 to n do
    for j := 1 to n do
        SF.Cells[j-1,i-1] := IntToStr(matrix[i,j]);

Ток соответственно не забываем задавать количество столбцов и строк в СтринГриде!

[V0L40K_21]

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

  

    Inc(k);

можно пояснить что это?

[Zer0]

Вот что такое inc