Question

Дана матрица размером 6x9. Найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. TURBO PASCAL

Answer 1

Const
 N = 6;
 M = 9;

var
 mas:array[1..N,1..M] of integer;
 max,min,j,i:integer;

begin
 max:=-maxint;
 min:=maxint;
 for i:=1 to N do
  for j:=1 to M do
  begin
   if max<mas[i,j] then
    max:=mas[i,j];
   if min>mas[i,j] then
    min:=mas[i,j];
  end;
 writeln((max+min)/2);
end.

Answer 2

Для нахождения среднего арифметического наибольшего и наименьшего значений элементов матрицы размером 6x9 в Turbo Pascal, вам потребуется выполнить следующие шаги:

1. Создайте матрицу размером 6x9 и заполните ее случайными значениями. Например, вы можете использовать функцию `Random` для генерации случайных чисел.

2. Найдите наибольшее и наименьшее значения в матрице. Для этого можно использовать два цикла: один для перебора строк, а другой для перебора столбцов. Внутри циклов сравнивайте текущий элемент с наибольшим и наименьшим значениями, обновляя их при необходимости.

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

Вот пример кода на Turbo Pascal, который реализует описанные шаги:

program AverageMinMax;

const
  ROWS = 6;
  COLS = 9;

var
  matrix: array[1..ROWS, 1..COLS] of Integer;
  i, j, maxVal, minVal, sum: Integer;
  average: Real;

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

// Нахождение наибольшего и наименьшего значений
  maxVal := matrix[1, 1];
  minVal := matrix[1, 1];
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      if matrix[i, j] > maxVal then
        maxVal := matrix[i, j];
      if matrix[i, j] < minVal then
        minVal := matrix[i, j];
    end;
  end;

// Нахождение среднего арифметического
  sum := maxVal + minVal;
  average := sum / 2;

// Вывод результатов
  writeln('Наибольшее значение: ', maxVal);
  writeln('Наименьшее значение: ', minVal);
  writeln('Среднее арифметическое: ', average);

readln;
end.

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

Примечание: В данном примере используется генерация случайных чисел от 0 до 99 с помощью функции `Random(100)`. Вы можете изменить этот диапазон в соответствии с вашими требованиями.