[jackwhite]

помогите создать проект. Нужно заполнить побочную диагональ матрицы элементами от 1..n
Получить квадратную матрицу порядка n:

[DelphiM0ZG]

Код:

program Project1;

{$APPTYPE CONSOLE}

Var
  A: Array[0..99, 0..99] Of Integer;
  i, j, n: Byte;

begin
  Write(' N = ');
  ReadLn(N);

  For i:=0 To N-1 Do
    For j:=0 To N-1 Do
      If (i+j=N-1) Then A[i, j]:=i+1
      Else A[i, j]:=0;

  For i:=0 To N-1 Do
    Begin
      For j:=0 To N-1 Do
        Write(' ', A[i, j]:3);
      WriteLn;
    End;

  ReadLn;
end.

А в чём, собственно, была проблема? Задачка-то детская...

[jackwhite]

Спасибо.
А что означает
A[i, j]:3

[angvelem]

Глянь справку, там это написано.

[DelphiM0ZG]

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

Спасибо.
А что означает
A[i, j]:3

Это означает отступ на 3 (или 2) символа (для целых чисел что-то типа того), а для вещественных (действительных), например:

Код:

WriteLn(x:2:3); // означает, что будет печататься 2 цифры до запятой и 3 после