матрица Опции

[оно]

получить матрицу вида
1 0 0 0 0 0 0 0 ...
1 2 0 0 0 0 0 0....
1 2 3 0 0 0 0 0....

...

1 2 3 4 5 .... n

помогите кто-нибудь

[Amro]

Если имеется ввиду матрица то это просто

Код

uses crt;
const
n=10;
var
k,i,j:integer;
matrix:array[1..n,1..n] of integer;
begin
clrscr;
k:=1;
for i:=1 to n do begin
 for j:=k to n do begin
   matrix[i,j]:=i;  end; inc(k); end;
for j:=1 to n do  begin
 for i:=1 to n do write(matrix[i,j]:4); writeln; end;
end.