Определить среднее арифметическое четных элементов третьего столбца матрицы - 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 и среднее арифметическое выводятся на экран.

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

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