Question

Заполнить квадратный двумерный массив таким образом, чтобы по диагонали были расположены 0, под диагональю 1, над диагональю элементы были равны сумме своих индексов. Pascal ABC

Answer 1

Const
  nmax=100;

var
  a:array[1..nmax,1..nmax] of byte;
  i,j,n:integer;
begin
  Write('Сколько в массиве строк или столбцов? ');
  Readln(n);
  for i:=1 to n do
    begin
    for j:=1 to n do
    begin
      if i<j then a[i,j]:=i+j
      else if i=j then a[i,j]:=0
      else a[i,j]:=1;
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Answer 2

Program z;
Type mas=array [1..100,1..100] of integer;
Var i,j,nx:integer;
a:mas;
Begin
read(nx);
For i:=1 to nx do
For j:=1 to nx do
Begin
If i>j then
a[i,j]:=1;
If i<j then
a[i,j]:=i+j;
If i=j then
a[i,j]:=0;
end;
For i:=1 to nx do
begin;
 For j:=1 to nx do
  write([a[i,j]],' ');
 writeln; 
end;
End.

Answer 3

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

program Main;

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

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

begin
  // Заполнение массива
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if i = j then
        arr[i, j] := 0 // элементы на диагонали равны 0
      else if i > j then
        arr[i, j] := 1 // элементы под диагональю равны 1
      else
        arr[i, j] := i + j; // элементы над диагональю равны сумме своих индексов
    end;
  end;

// Вывод массива
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      write(arr[i, j], ' ');
    end;
    writeln;
  end;
  
  readln;
end.

В результате выполнения данного кода будет создан двумерный массив `arr`, заполненный таким образом:

0 1 2 3 4 
1 0 3 4 5 
2 3 0 5 6 
3 4 5 0 7 
4 5 6 7 0 

Где элементы на диагонали равны 0, элементы под диагональю равны 1, а элементы над диагональю равны сумме своих индексов.