Question

Составить программу, которая формирует случайным образом массив NxN целых чисел и вычисляет сумму элементов каждой строки. паскаль

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('N =');

 var a := MatrRandom(n, n, -99, 99);

 a.Println;

 Writeln;

 a.Rows.Select(p -> p.Sum).Println

end.

Answer 2

Для решения этой задачи на языке Pascal (Delphi) можно использовать следующий код. Для генерации случайных чисел мы воспользуемся функцией Random из модуля SysUtils, а для работы с массивами - типом array of array of Integer.

pascalCopy code
program SumOfRowElements;

uses
  SysUtils;

const
  N = 5; // Размерность массива NxN

type
  TMatrix = array of array of Integer;

procedure GenerateRandomMatrix(var matrix: TMatrix; size: Integer);
var
  i, j: Integer;
begin
  SetLength(matrix, size, size);
  for i := 0 to size - 1 do
    for j := 0 to size - 1 do
      matrix[i][j] := Random(100); // Генерируем случайное число от 0 до 99
end;

function SumOfRow(const row: array of Integer): Integer;
var
  i, sum: Integer;
begin
  sum := 0;
  for i := 0 to Length(row) - 1 do
    sum := sum + row[i];
  Result := sum;
end;

procedure DisplayMatrix(const matrix: TMatrix; size: Integer);
var
  i, j: Integer;
begin
  for i := 0 to size - 1 do
  begin
    for j := 0 to size - 1 do
      Write(matrix[i][j]:4);
    Writeln('|', SumOfRow(matrix[i]):5);
  end;
end;

var
  matrix: TMatrix;
begin
  Randomize; // Инициализируем генератор случайных чисел

  GenerateRandomMatrix(matrix, N); // Создаем и заполняем случайной матрицу NxN
  DisplayMatrix(matrix, N); // Выводим матрицу и суммы элементов каждой строки
end.

Обратите внимание, что Randomize используется для инициализации генератора случайных чисел, чтобы при каждом запуске программы получать различные случайные матрицы.

После запуска программы вы увидите случайно сгенерированную матрицу и суммы элементов каждой строки, отображенные справа от соответствующих строк.