Матрицы....паскаль.

[shadezx]

Нужно создать двухмерный массив A[1..n, 1..n], прошу помоч з данной задачей)
я зделал заготовку, но ето будут звездочки только по краям
for i:=1 to n do
for j:=1 to n do
if (i=1) or (i=n) or (j=1) or (j=n)
then a[i,j]:='*';



http://piccy.info/view3/5328541/813b...f40047551661b/

[shadezx]

https://freemail.ukr.net/attach/show...389810/1/n.png

[Mad_Cat]

var i,j,n:byte;
begin
n:=7;
for i:=1 to n do begin
for j:=1 to n do
if (i=1) or (i=n) or (j=1) or (j=n) or (j=n-i+1)
then write('*') else write(' ');
writeln;
end;
readln;
end.