begin
  var matr := matrrandom(8, 5, -10, 10);
  writeln('Ваша матрица:');
  for var i := 0 to 7 do
  begin
    for var j := 0 to 4 do
      write(matr[i, j]:3, ' ');
    writeln;
  end;
  writeln;
  writeln('Ваша новая матрица:');
  for var i := 0 to 7 do
  begin
    for var j := 0 to 4 do
    begin
      matr[i, j] := matr[i, j] * 2;
      write(matr[i, j]:3, ' ');
    end;
    writeln;
  end;
  var (row, col) := (0, 0);
  var max := matr[0, 0];
  for var i := 0 to 7 do
  begin
    for var j := 0 to 4 do
      if matr[i, j] > max then
      begin
        max := matr[i, j];
        row := i;
        col := j;
      end;
  end;
  writeln('Максимальный элемент ', max, ' номер элемента ', row, ' ', col);
  var min := matr[0, 0];
  for var i := 0 to 7 do
  begin
    for var j := 0 to 4 do
      if matr[i, j] < min then
      begin
        min := matr[i, j];
        row := i;
        col := j;
      end;
  end;
  writeln('Минимальный элемент ', min, ' номер элемента ', row, ' ', col);
  var sum := 0;
  max := -1000;
  for var i := 0 to 7 do
  begin
    for var j := 0 to 4 do
      sum += matr[i, j];
    if sum > max then
    begin
      max := sum;
      row := i;
    end;
  end;
  writeln('номер максимальной строки ', row, ':');
  for var i := row to row do
    for var j := 0 to 4 do
      write(matr[i, j]:2, ' ');
end.