Заполнить массив

[mila111189]

2. Заполнить массив n*n по правилу:
1 2 3...n-1 n
0 1 2...n-2 n-1
0 0 1...n-3 n-2
. . . ... . .
0 0 0 ... 0 1

[xDyPx]

Если на Паскале, то вот:

var i,j,l: integer;
a: array[1..10,1..10] of integer;
begin
l:=1;
for i:=1 to 10 do
begin
 for j:=1 to 10 do
  begin
   if j>=i then
    begin
     a[i,j]:=l;
     inc(l);
    end
   else a[i,j]:=0;
  end;
  l:=1;
end;
readln;
end.

В этом случае n=10;