заполнить матрицу a : array[1..5,1..7] of integer так, чтобы на каждой позиции стояла сумма индексов i и j (т.е. a[i, j] = i + j) , вывести ее на экран. создать матрицу a : array[1..m,1..n] of integerзаполнить ее так, чтобы на каждой позиции стояла разность индексов i и j (т.е. a[i, j] = i - j), (сonst m=5 n=9)

Var
  a:array[1..5,1..7] of integer;
  i,j:integer;
Begin
 for i:= 1 to 5 do
 Begin
   for j:= 1 to 7 do
   Begin
      a[i,j]:=i+j;
      write(a[i,j],' ');
   End;
  Writeln;
  End;
End.

2.
Const
  m = 5;
  n = 9;
Var
  a:array[1..m,1..n] of integer;
  i,j:integer;
Begin 
  for i:= 1 to m do
 Begin
   for j:= 1 to n do
   Begin
      a[i,j]:=i-j;
      write(a[i,j],' ');
   End;
  Writeln;
  End;
End.