Question

Сформировать двумерный массив все элементы равны нулю а элементы главной и побочной диагонали равны единице в паскаль. Пожалуйста срочно надо!!!

Answer 1

 const n=6;
var a: array[1..n,1..n] of integer;
    i,j: integer;
begin
  for i:=1 to n do
  for j:=1 to n do
    if (i=j) or (i=n-j+1) then a[i][j]:=1
    else a[i][j]:=0;
// вывод на экран
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i][j]:4);
    writeln;
  end;
end.
  
 1   0   0   0   0   1
 0   1   0   0   1   0
 0   0   1   1   0   0
 0   0   1   1   0   0
 0   1   0   0   1   0
 1   0   0   0   0   1

Answer 2

Для создания двумерного массива, в котором все элементы равны нулю, а элементы главной и побочной диагонали равны единице, можно использовать следующий код на языке Паскаль:

const
  N = 5; // размерность массива

var
  arr: array[1..N, 1..N] of Integer;
  i, j: Integer;

begin
  // заполняем массив нулями
  for i := 1 to N do
    for j := 1 to N do
      arr[i, j] := 0;

// заполняем главную и побочную диагонали единицами
  for i := 1 to N do
  begin
    arr[i, i] := 1; // главная диагональ
    arr[i, N - i + 1] := 1; // побочная диагональ
  end;
end.

В этом коде мы используем константу `N` для указания размерности массива. Затем мы создаем двумерный массив `arr` с размерностью `N x N`. Заполняем массив нулями с помощью двух вложенных циклов. Затем, с помощью еще одного цикла, заполняем главную и побочную диагонали единицами.

Примечание: Пожалуйста, обратите внимание, что код на языке Паскаль не является частью современных поисковых результатов, поэтому я не могу предоставить точные источники для этого кода. Однако, предоставленный код является стандартным способом создания такого массива на языке Паскаль.