Найти среднее арифметическое элементов матрицы, расположенных на побочной диагонали и выше её - Pascal ABC

Найти среднее арифметическое, расположенных на побочной диагонали и выше её

Листинг программы

s:=0;
for i:=1 to n do
s:=s+a[i,n-i+1];
s:=s/n;

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

Переменная s инициализируется значением 0.
Затем происходит цикл for, который выполняется от 1 до n (n - количество строк в матрице).
В каждой итерации цикла переменная s увеличивается на сумму элементов матрицы a[i, n-i+1], где i - номер текущей строки.
После завершения цикла значение переменной s делится на n (количество строк в матрице), чтобы получить среднее арифметическое.
Результат сохраняется в переменной s.

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

10 голосов , оценка 4.1 из 5

Похожие ответы