Определить среднее арифметическое четных элементов третьего столбца матрицы - Turbo Pascal (33973)
Формулировка задачи:
7.36 Дан двухмерный массив целых чисел. Определить:
а) среднее арифметическое четных элементов третьего столбца;
6) среднее арифметическое элементов четвертой строки, кратных трем
Решение задачи: «Определить среднее арифметическое четных элементов третьего столбца матрицы»
textual
Листинг программы
const m=10, n=10; Var a: array [1..n,1..m] of integer; i, j, c, p: integer; s: real; begin {Заполните массив так, как вам надо} For i := 1 to do If a[i,3] mod 2 = 0 then inc(c); For j:= 1 to m do If a[4,j] mod 3 = 0 then begin s:=s+a[4,j]; inc(p); end; s:=s/p; write( c, s); end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- m и n - константы, которые определяют размер массива и количество строк и столбцов в нем соответственно.
- a - массив целых чисел размером m x n.
- i, j, c, p - переменные-счетчики, которые используются для отслеживания количества четных элементов и подсчета суммы.
- s - переменная для хранения среднего арифметического. Далее следует цикл, который заполняет массив значениями. Внутри цикла проверяется, является ли элемент массива четным (остаток от деления на 2 равен нулю). Если это так, то счетчик c увеличивается на единицу. Затем выполняется еще один цикл, который проходит по всем элементам массива. Если элемент четный (остаток от деления на 3 равен нулю), то значение элемента добавляется к переменной s, а счетчик p увеличивается на единицу. После окончания второго цикла значение переменной s делится на значение счетчика p, и результат записывается в переменную c. В конце кода значение переменной c и среднее арифметическое выводятся на экран.