Question

Имеется матрица размерностью 5х5. 1. Заполнить матрицу случайными числами в диапазоне [10,20]2. Вывести сумму элементов 1 – го столбца и произведение элементов 1-ой строкиязык Pascal

Answer 1

Ответ:

• begin
• var m := MatrRandom(5,5,10,20);
• m.Println;
• Println('Сумма:',m.Col(0).Sum);
• Println('Произведение:',m.Row(0).Product);
• end.

Пример работы:

Answer 2

Конечно, вот пример кода на языке Pascal, который выполняет указанные задачи:

pascalCopy code
program MatrixOperations;

const
  Rows = 5;
  Cols = 5;

var
  matrix: array[1..Rows, 1..Cols] of Integer;
  i, j: Integer;
  sumFirstColumn: Integer;
  productFirstRow: Integer;

begin
  Randomize;

  // Заполнение матрицы случайными числами в диапазоне [10, 20]
  for i := 1 to Rows do
    for j := 1 to Cols do
      matrix[i, j] := Random(11) + 10; // Random(11) дает случайное число от 0 до 10

  // Вывод матрицы
  writeln('Сгенерированная матрица:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      write(matrix[i, j]:4);
    writeln;
  end;

  // Вычисление суммы элементов 1-го столбца
  sumFirstColumn := 0;
  for i := 1 to Rows do
    sumFirstColumn := sumFirstColumn + matrix[i, 1];

  writeln('Сумма элементов 1-го столбца:', sumFirstColumn);

  // Вычисление произведения элементов 1-й строки
  productFirstRow := 1;
  for j := 1 to Cols do
    productFirstRow := productFirstRow * matrix[1, j];

  writeln('Произведение элементов 1-й строки:', productFirstRow);

end.

Просто скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните его. Вы увидите сгенерированную матрицу, сумму элементов 1-го столбца и произведение элементов 1-й строки.