СРОЧНО!!! ПРОШУ ПОМОЧЬ!!! ЧАС!!! Заполнить матрицу a :array[1..5,1..7] of integer так,...

Question

СРОЧНО!!! ПРОШУ ПОМОЧЬ!!! ЧАС!!!
Заполнить матрицу 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)

Answer 1

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.