Подсчитать среднее значение элементов произвольного двумерного массива - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!СРОЧНО!!!!!!!!!! Подсчитать среднее значение элементов произвольного двумерного массива

Решение задачи: «Подсчитать среднее значение элементов произвольного двумерного массива»

textual
Листинг программы
const
  n = 10;
 
var
  i, j, s: integer;
  a: array[1..n, 1..n] of integer;
 
begin
  s := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := -n div 2 + random(n);
      write(a[i, j]:5);
      s := s + a[i, j];
    end;
    writeln;
  end;
  writeln('Среднее арифметическое элементов двумерного массива: ', s / (n * n));
end.

Объяснение кода листинга программы

  1. Объявлены константа n со значением 10 и переменная s типа integer.
  2. Создается двумерный массив a размером 10x10, инициализированный случайными значениями от -5 до 5.
  3. Переменная s инициализируется нулем.
  4. Два вложенных цикла for проходят по всем элементам массива a.
  5. В каждой итерации внутреннего цикла значение элемента a[i, j] добавляется к переменной s.
  6. Каждое значение элемента массива выводится на экран с помощью функции write.
  7. После завершения циклов выводится на экран итоговое значение переменной s.
  8. Вычисляется среднее арифметическое элементов массива a и выводится на экран с помощью функции writeln.

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы