1 0 0 ... 0
2 1 0 ... 0
3 2 1 ... 0
. . . ... .
. . . ... .
M M-1 M-2 1
Uses
Crt;
type matrix = array[1..100,1..100] of integer;
var
i,j,n:integer;
a:matrix;
begin
clrscr;
writeln('Vvedite razmer matris');
write('n=');readln(n);
for i :=1 to n do
for j :=1 to n do
if (i>=j) then
a[i,j] := i - j +1;
for i :=1 to n do
begin
for j :=1 to n do
write(a[i,j]:3);
writeln;
end;
readln;
end.