Автор: оно 12.10.2004 22:20
получить матрицу вида
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 12.10.2004 23:19
Если имеется ввиду матрица то это просто
Код
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.