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
помогите кто-нибудь
Полная версия: матрица
получить матрицу вида
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
помогите кто-нибудь
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
помогите кто-нибудь
Если имеется ввиду матрица то это просто
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.
Код
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.