Question

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

Answer 1

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 2

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.