Цитата
1111111
0111110
0011100
0001000
0011100
0111110
1111111
решается давольно таки легко...0111110
0011100
0001000
0011100
0111110
1111111
а как решить задачу по схеме:
Цитата
111101111
111000111
110000011
100000001
000111000
100000001
110000011
111000111
111101111
111000111
110000011
100000001
000111000
100000001
110000011
111000111
111101111
P.S. Вот что подсказал по поводу первой:
Код
function min(a, b: integer): integer;
begin
min := a; if b < a then min := b;
end;
function max(a, b: integer): integer;
begin
max := a; if b > a then max := b;
end;
begin
...
For i:=1 to n do begin
for j := min(1 + i - 1, n - i + 1) to max(1 + i - 1, n - i + 1) do
a[i, j] := 1;
end;
{ ... и печатай матрицу ... }
...
end.
begin
min := a; if b < a then min := b;
end;
function max(a, b: integer): integer;
begin
max := a; if b > a then max := b;
end;
begin
...
For i:=1 to n do begin
for j := min(1 + i - 1, n - i + 1) to max(1 + i - 1, n - i + 1) do
a[i, j] := 1;
end;
{ ... и печатай матрицу ... }
...
end.
За что ему спасибо!
![smile.gif](http://forum.pascal.net.ru/style_emoticons/default/smile.gif)
И, кто поможет мне, тоже отдельная благодарностЬ!
![smile.gif](http://forum.pascal.net.ru/style_emoticons/default/smile.gif)