матрици

[Forro]

Я на гране нервного срыва - второй день сижу над задачей - ничего в голову не лезит, не знаю как решать.
Получить квадратную матрицу порядка n:

11...11
1...1
..
0 . 0
..
1...1
11...11

[alexBlack]

Квадратная матрица порядка n - это матрица с количеством строк и столбцов = n. Что это за рисуночек ?

Откуда получить ? Заполнить ? Тогда должны быть описаны правила заполнения.

[Forro]

Это то что должно получиться в матрице - например матрица 5-го порядка =( тока как это в паскале я не в курсах, каждый эл-т вручную??? но порядок ведь величина измеряемая...

1 1 1 1 1
0 1 1 1 0
0 0 1 0 0
0 1 1 1 0
1 1 1 1 1

[alexBlack]

Вот так можно:

var M:array[1..100, 1..100] of integer;

procedure fillMatrix(N:integer);
var k, i, j, c :integer;
begin
   k := N div 2;
   if N mod 2 > 0 then inc(k);
    
   c := 0; // отступ
   for i:=1 to N do begin

      for j := 1 to N do begin
         if (j <= c) or (j >= N-c+1)
         then M[i, j] := 0
         else M[i, j] := 1;
      end;

      if i < k then inc(c)
      else
         if (i > k) or (N mod 2 > 0) then dec(c);
   end;
end;

begin
    N := 5;
    fillMatrix(N);
    ...

[puporev]

Можно немного короче.

uses crt;
var a:array[1..20,1..20]of byte;
    n,i,j:byte;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
  begin
    for j:=1 to n do
       begin
         if((j>=i)and(j<=n-i+1))
         or((j<=i)and(j>=n-i+1))
         then    a[i,j]:=1
         else a[i,j]:=0;
         write(a[i,j],' ');
      end;
    writeln;
  end;
readln
end.

[Forro]

БольФое Пасибо, вообще плохо знаю эту часть паскаля =(