Заполнить двумерный массив 10х10 следующим образом Pascal

Question

Заполнить двумерный массив 10х10 следующим образом Pascal

---

Answer 1

const n=10;

var a:array[1..n,1..n] of integer;

i,j: integer;

begin

for i:=1 to n do

begin

for j:=1 to n-i do a[i,j]:=2;

a[i,n-i+1]:=0;

for j:=n-i+2 to n do a[i,j]:=3;

end;

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:3);

writeln;

end;

end.

Результат (для n=5):

 2  2  2  2  0

 2  2  2  0  3

 2  2  0  3  3

 2  0  3  3  3

 0  3  3  3  3