Ответы и объяснения

2014-02-05T19:22:05+04:00
73. var i,j,n:integer;
m:array [1..200,1..200] of byte;
begin
writeln ('Введи размерность массива');
readln (n);
for i:=1 to n do begin
for j:=1 to n do
if n=j+i-1 then m[i,j]:=i
else m[i,j]:=0;
end;
for i:=1 to n do begin
for j:=1 to n do
write (m[i,j],' ');
writeln;
end;
readln;
end.