0111110
0011100
0001000
0011100
0111110
1111111
а как решить задачу по схеме:
111000111
110000011
100000001
000111000
100000001
110000011
111000111
111101111
P.S. Вот что подсказал по поводу первой:
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.
За что ему спасибо!
И, кто поможет мне, тоже отдельная благодарностЬ! )))