Question

Задание выполнить на языке Паскаль, На Паскале двумерный массив статический. Дана прямоугольная таблица вещественных чисел. Среди сумм элементов строк найти значение максимальной.

Answer 1

                                                                             

program raf105;

const

 Ns = 3; //Длинна столбца

 Nc = 4; //Длинна строки

var

 a:array[1..Ns,1..Nc] of real;

 sums,max:real;

 i,j:integer;

begin

 max:= -(9**38);

 for i:=1 to Ns do

 begin

   if sums > max

     then max:= sums;

   sums:= 0;

   for j:=1 to Nc do

   begin

     write('Введите значение элемента ',i,' строки, ',j,' солбца: ');

     readln(a[i,j]);

     sums += a[i,j];

   end;

 end;

 writeln;

 writeln('Максимальная сумма элементов из одной строки: ',max);

end.

                                                                             

Answer 2

Для нахождения значения максимальной суммы элементов в строках двумерного статического массива в Паскале, можно использовать следующий код:

pascalCopy code
program MaxSumInRows;

const
  Rows = 3; // Количество строк
  Cols = 4; // Количество столбцов

type
  Matrix = array[1..Rows, 1..Cols] of Real;

// Функция для нахождения суммы элементов в строке
function SumRowElements(row: Integer; const matrix: Matrix): Real;
var
  col: Integer;
  sum: Real;
begin
  sum := 0;
  for col := 1 to Cols do
    sum := sum + matrix[row, col];
  Result := sum;
end;

// Функция для поиска максимальной суммы в строках
function FindMaxSumInRows(const matrix: Matrix): Real;
var
  row: Integer;
  maxSum: Real;
begin
  maxSum := SumRowElements(1, matrix); // Предполагаем, что первая строка имеет максимальную сумму
  for row := 2 to Rows do
  begin
    if SumRowElements(row, matrix) > maxSum then
      maxSum := SumRowElements(row, matrix);
  end;
  Result := maxSum;
end;

var
  data: Matrix;
  row, col: Integer;
  maxSumInRows: Real;
begin
  // Инициализируем матрицу данными (можно вводить значения с клавиатуры)
  data[1, 1] := 1.5;
  data[1, 2] := 2.0;
  data[1, 3] := 3.7;
  data[1, 4] := 4.2;
  data[2, 1] := 2.3;
  data[2, 2] := 1.1;
  data[2, 3] := 0.8;
  data[2, 4] := 3.9;
  data[3, 1] := 0.5;
  data[3, 2] := 2.8;
  data[3, 3] := 1.6;
  data[3, 4] := 1.4;

  // Выводим исходную матрицу
  for row := 1 to Rows do
  begin
    for col := 1 to Cols do
      Write(data[row, col]:6:2, ' ');
    Writeln;
  end;

  maxSumInRows := FindMaxSumInRows(data);
  Writeln('Максимальная сумма элементов в строках: ', maxSumInRows:6:2);
end.

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