---

Program MatrixRandom;

Var
  a: array[1..50, 1..50] of integer;
  i, j, m, n: integer;

Begin
  Write('Сколько строк? ');
  Readln(m);
  Write('Сколько столбцов? ');
  Readln(n);

  Randomize;

  For i := 1 to m do
  Begin
    For j := 1 to n do
    Begin
      a[i,j] := Random(46) - 20;
      Write(a[i,j], ' ');
    End;
    Writeln;
  End;
End.

Program SumMatrix;

Var
  a: array[1..50, 1..50] of integer;
  i, j, m, n, S: integer;

Begin
  Write('Сколько строк? ');
  Readln(m);
  Write('Сколько столбцов? ');
  Readln(n);

  For i := 1 to m do
    For j := 1 to n do
    Begin
      Write('a[', i, ',', j, ']=');
      Readln(a[i,j]);
    End;

  For i := 1 to m do
  Begin
    S := 0;

    For j := 1 to n do
      S := S + a[i,j];

    Writeln('Сумма элементов в ', i, ' строке равна ', S);
  End;
End.

Program MinMatrix;

Var
  a: array[1..50, 1..50] of integer;
  i, j, m, n, min, k: integer;

Begin
  Write('Сколько строк? ');
  Readln(m);
  Write('Сколько столбцов? ');
  Readln(n);

  For i := 1 to m do
    For j := 1 to n do
    Begin
      Write('a[', i, ',', j, ']=');
      Readln(a[i,j]);
    End;

  min := a[1,1];
  k := 1;

  For i := 1 to m do
    For j := 1 to n do
      If a[i,j] < min then
      Begin
        min := a[i,j];
        k := i;
      End;

  Writeln('Наименьшее число ', min,
          ' находится в ', k, ' строке');
End.

Program MinElement;

Var
  a: array[1..50, 1..50] of integer;
  i, j, m, n, min: integer;

Begin
  Write('Сколько строк? ');
  Readln(m);
  Write('Сколько столбцов? ');
  Readln(n);

  For i := 1 to m do
    For j := 1 to n do
    Begin
      Write('a[', i, ',', j, ']=');
      Readln(a[i,j]);
    End;

  min := a[1,1];

  For i := 1 to m do
    For j := 1 to n do
      If a[i,j] < min then
        min := a[i,j];

  Writeln('Наименьший элемент массива = ', min);
End.

Program ProductMatrix;

Var
  a: array[1..50, 1..50] of integer;
  i, j, m, n: integer;
  P: integer;

Begin
  Write('Сколько строк? ');
  Readln(m);
  Write('Сколько столбцов? ');
  Readln(n);

  For i := 1 to m do
    For j := 1 to n do
    Begin
      Write('a[', i, ',', j, ']=');
      Readln(a[i,j]);
    End;

  For i := 1 to m do
  Begin
    P := 1;

    For j := 1 to n do
      P := P * a[i,j];

    Writeln('Произведение элементов ', i,
            ' строки = ', P);
  End;
End.