Question

Решите, пожалуйста, задачу на Паскале. Найти среднее арифметической каждой строки в двумерном массиве и скинуть в новый массив.

Answer 1

Const n = 5;
var
a: array[1..n, 1..n] of integer;
b: array[1..n] of real;
i, j, k: integer;
begin
//считываем матрицу
for i:=1 to n do
   for j:=1 to n do
      readln(a[i, j]);
//находим среднее для каждой строки
//и заполняем ими массив b
for i:=1 to n do
   begin
      k:=0;
      for j:=1 to n do
         k:=k+a[i,j];
      b[i] := k/n;
   end;
//вывод массива b
for i:=1 to n do
writeln(b[i]);
end.

Answer 2

Конечно, вот пример решения задачи на Паскале:

program AverageArray;

const
  ROWS = 3;
  COLS = 4;

type
  TwoDimensionalArray = array[1..ROWS, 1..COLS] of Integer;
  OneDimensionalArray = array[1..ROWS] of Real;

var
  inputArray: TwoDimensionalArray;
  averageArray: OneDimensionalArray;
  i, j: Integer;

procedure CalculateAverage(input: TwoDimensionalArray; var output: OneDimensionalArray);
var
  i, j: Integer;
begin
  for i := 1 to ROWS do
  begin
    output[i] := 0;
    for j := 1 to COLS do
    begin
      output[i] := output[i] + input[i, j];
    end;
    output[i] := output[i] / COLS;
  end;
end;

begin
  // Заполнение двумерного массива случайными значениями
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      inputArray[i, j] := Random(10); // Генерация случайного числа от 0 до 9
    end;
  end;

// Вывод исходного массива
  writeln('Исходный двумерный массив:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      write(inputArray[i, j]:3);
    end;
    writeln;
  end;

// Вычисление среднего арифметического и заполнение нового массива
  CalculateAverage(inputArray, averageArray);

// Вывод нового массива
  writeln('Новый одномерный массив со средними значениями:');
  for i := 1 to ROWS do
  begin
    writeln(averageArray[i]:0:2);
  end;

end.

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