Прошу помощи с Turbo Pascal.

[maks]

Может кто-нибудь может помоч накалякать программу в паскале, которая будет выводить на экран такую матрицу:
0000000000
9000000000
8900000000
7890000000
6789000000
5678900000
4567890000
3456789000
2345678900
1234567890


Заранее спасибо!

 

[lisa99]

program massiv1;
uses CRT;
const MaxIndex=10;
var i,j,k: integer;
      A: array[1..MaxIndex, 1..MaxIndex] of integer;

begin
 ClrScr;
               begin
      for i:=1 to 10 do
                  begin
                  k:=11-i;
          for j:=1 to i-1 do
                          begin
                             A[i,j]:=k;k:=k+1;
                          end;
                          for j:=i to 10  do
                            A[i,j]:=0
                  end
               end;
             for i:=1 to 10 do
        	begin
          for j:=1 to 10 do write(A[i,j]:4);
            writeln;
    	end; writeln;



             end.

 

[maks]

Пасибки тебе огромное!