Определить среднее арифметическое четных элементов третьего столбца матрицы - Turbo Pascal (33988)

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

Дан двухмерный массив целых чисел. Определить: а) среднее арифметическое четных элементов третьего столбца; 6) среднее арифметическое элементов четвертой строки, кратных трем

Решение задачи: «Определить среднее арифметическое четных элементов третьего столбца матрицы»

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

const
  n = 4;
  m = 5;
var
  a : array[1..n, 1..m] of integer;
  i, j, s1, s2 : integer;
begin
  randomize;
  s1 := 0;
  s2 := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(50) - 25;
      write(a[i,j]:4);
      if (j = 3) then s1 := s1 + a[i,j];
      if (i = 4) and (a[i,j] mod 3 = 0) then s2 := s2 + a[i,j]
    end;
    writeln
  end;
  writeln('среднее арифметическое четных элементов третьего столбца: ', (s1 / n):6:2);
  writeln('среднее арифметическое элементов четвертой строки, кратных трем: ', (s2 / m):6:2);
  readln
end.

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

В данном коде объявлены следующие переменные:

n - количество строк в матрице (равное 4 в данном случае);
m - количество столбцов в матрице (равное 5 в данном случае);
a - матрица целых чисел размером n x m;
i - номер строки, с которой начинается цикл;
j - номер столбца, с которым начинается цикл;
s1 - переменная для хранения суммы четных элементов третьего столбца;
s2 - переменная для хранения суммы элементов четвертой строки, кратных трем. Цикл for i := 1 до n do представляет собой цикл по строкам матрицы. Внутри цикла выполняется цикл for j := 1 до m do, который представляет собой цикл по столбцам матрицы. Внутри этого внутреннего цикла значение каждого элемента матрицы a[i,j] присваивается переменной a[i,j], а затем выводится на экран с помощью функции write(a[i,j]:4). Если элемент a[i,j] является четным (т.е. его последняя цифра равна 0), то его значение добавляется к переменной s1. Если элемент a[i,j] является кратным трем (т.е. его последние две цифры равны 00), то его значение добавляется к переменной s2. После завершения циклов выполняется вывод на экран среднего арифметического четных элементов третьего столбца с помощью формулы (s1 / n):6:2 и среднего арифметического элементов четвертой строки, кратных трем с помощью формулы (s2 / m):6:2. Наконец, функция readln() используется для чтения пользовательского ввода, что завершает работу программы.