Question

ДАЮ 100 БАЛЛОВдан двумерный массив определить среднее арифметическое элементов четвертого столбцаРешите через паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Ср.арифм. элементов 4-го столбца ',a.Col(3).Average)
end.

Answer 2

Чтобы решить данную задачу на Паскале, мы можем использовать следующий код:

program AverageOfFourthColumn;

const
  N = 5; // количество строк массива
  M = 4; // количество столбцов массива

var
  arr: array [1..N, 1..M] of Integer; // двумерный массив
  i, j, sum, average: Integer; // переменные для циклов и вычисления среднего арифметического

begin
  // Ввод элементов массива
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      writeln('Введите элемент [', i, ',', j, ']: ');
      readln(arr[i, j]);
    end;
  end;

// Вычисление среднего арифметического четвертого столбца
  sum := 0;
  for i := 1 to N do
  begin
    sum := sum + arr[i, 4]; // суммируем элементы четвертого столбца
  end;
  
  average := sum div N; // вычисляем среднее арифметическое

// Вывод среднего арифметического
  writeln('Среднее арифметическое четвертого столбца: ', average);

end.

В данном коде мы сначала объявляем двумерный массив `arr` размером `N` строк на `M` столбцов. Затем с помощью вложенных циклов `for` заполняем массив введенными пользователем значениями.

Далее, используя еще один цикл `for`, мы суммируем все элементы четвертого столбца массива `arr` и сохраняем сумму в переменную `sum`. Затем, вычисляем среднее арифметическое путем деления суммы на количество строк `N` и сохраняем результат в переменную `average`.

В конце программы выводим полученное среднее арифметическое на экран.