создайте матрицу 10*10 по следующему образцу

[anyamisss]

1 0 0 ... 0 0 1
1 1 0 ... 0 1 1
1 1 1 ... 1 1 1
.................
n-1 n 0 ... 0 0 0
n 0 0 ... 0 0 0

[Вадим Мошев]

Что у вас не получается? Покажите, что пытались сделать.

[newerow1989]

var p:array[1..10,1..10] of byte;
    i,j,t:integer;
begin
   For i:=1 to 10 do
      For j:=1 to 10 do
      begin
         If (j<=i) or (j>=11-i) then
            p[i,j]:=1 else
            p[i,j]:=0;
         If i>5 then
         begin
            p[i,j]:=0;
            t:=i+j-1;
            If t<=10 then
               p[i,j]:=t;
         end;
      end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:2,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

[Aleksandr H.]

Распишите для "особо одаренных" логику этого массива? по отдельности верхняя и нижняя части - понимаю, но их комбинация...зачем?
а может не надо искать логику, а "может просто снегом стать"

[Аватар]

их комбинация...зачем

Научиться зацикливаться ))

[newerow1989]

матрицу

Там одну матрицу создать!

n = 10

Можно перед

For j:=1 to 10 do

написать

If i<=5 then ... else ...

[anyamisss]

Сообщение от Aleksandr H.

Распишите для "особо одаренных" логику этого массива? по отдельности верхняя и нижняя части - понимаю, но их комбинация...зачем?
а может не надо искать логику, а "может просто снегом стать"

Напишите программу этой матрицы, пожалуйста. В СИ++
Матрица на вашем изображении верна

[anyamisss]

Сообщение от newerow1989

var p:array[1..10,1..10] of byte;
    i,j,t:integer;
begin
   For i:=1 to 10 do
      For j:=1 to 10 do
      begin
         If (j<=i) or (j>=11-i) then
            p[i,j]:=1 else
            p[i,j]:=0;
         If i>5 then
         begin
            p[i,j]:=0;
            t:=i+j-1;
            If t<=10 then
               p[i,j]:=t;
         end;
      end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:2,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Мне нужна программа в си++ можете помочь?