Question

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

Answer 1

Ответ:

//--- PascalABC.NET 3.6.2 ---

begin

 var Matr := MatrRandom(10, 10, -99, 99);

 Matr.Println;

 foreach var row in Matr.Rows do begin

   Println(row.Where(p -> (p mod 10) mod 2 <> 0).Average);

 end;

end.

Answer 2

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

pascalCopy code
program AverageOddLastDigit;

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

type
  IntArray = array[1..Rows, 1..Cols] of Integer;

var
  arr: IntArray;
  row, col: Integer;
  sum, count: Integer;
  average: Real;

// Функция для определения последней цифры числа
function LastDigit(n: Integer): Integer;
begin
  LastDigit := n mod 10;
end;

begin
  // Заполнение массива случайными числами
  Randomize;
  for row := 1 to Rows do
    for col := 1 to Cols do
      arr[row, col] := Random(100); // Здесь можно изменить диапазон чисел

  // Находим среднее арифметическое для каждой строки
  for row := 1 to Rows do
  begin
    sum := 0;
    count := 0;

    for col := 1 to Cols do
    begin
      if Odd(LastDigit(arr[row, col])) then // Проверяем, является ли последняя цифра нечетной
      begin
        sum := sum + arr[row, col];
        count := count + 1;
      end;
    end;

    if count > 0 then
      average := sum / count
    else
      average := 0;

    writeln('Среднее арифметическое для строки ', row, ': ', average:0:2);
  end;

  readln;
end.

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