Заполнить произвольный массив размером NxN (N<10) по следующему...

Question

Заполнить произвольный массив размером NxN (N<10) по следующему правилу:<br>10000
02000
00300
00020
00001
Буду очень благодарна:)

Answer 1

Const n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
end.

Comments

заполняется по другому правилу: