Паскаль!!!!!! Заполнить матрицу размерностью N ** M по следующему принципу: Если номер...

Question

Паскаль!!!!!!
Заполнить матрицу размерностью N на M по следующему принципу:

Если номер строки больше номера столбца, то элемент равен номеру строки.
Иначе – элемент равен произведению индексов.
Выведите матрицу на экран.

Answer 1

Const
  N = 5;
  M = 10;
Var
  A   : array[1..N,1..M] of Integer;
  i,j : Byte;
Begin
  For i:=1 to N do
  Begin
    For j:=1 to M do
    Begin
      If i>j then A[i,j]:=i else A[i,j]:=i*j;
      Write(a[i,j]:6);
    end;
    Writeln;
  end;
end.