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