Найти в каждой строке матрицы среднее арифметическое четных элементов - Pascal

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

Дана целочисленная прямоугольная матрица размера m×n, заполненная случайными числами. Найти в каждой строке матрицы среднее арифметическое четных элементов и указать номер строки, где эта величина максимальна.

Решение задачи: «Найти в каждой строке матрицы среднее арифметическое четных элементов»

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

const m=5; n=5;
var
  a: array [1..m,1..n] of Integer;
  i, j, k, p: Integer;
  s, q: Real;
begin
  Randomize;
  WriteLn('A =');
  for i:=1 to m do begin
    s:=0; k:=0;
    for j:=1 to n do begin
      a[i,j]:=Random(20); Write(a[i,j]:4);
      if not Odd(a[i,j]) then begin Inc(k); s:=s+a[i,j]; end;
    end;
    if k>0 then s:=s/k;
    if q<s then begin q:=s; p:=i; end;
    WriteLn('|',s:8:2);
  end;
  WriteLn(q:0:2,' в строке ',p);
end.

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

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

m и n - это константы, которые определяют размер матрицы. В данном случае они равны 5.
a - это массив, в котором будут храниться значения элементов матрицы. Он имеет размерность m x n.
i, j, k, p - это переменные, которые используются для итерации по матрице и выполнения необходимых операций.
s и q - это переменные, которые используются для хранения среднего арифметического четных элементов матрицы. В начале кода происходит инициализация генератора случайных чисел и вывод заголовка A =. Затем следует цикл, который выполняется m раз. Внутри этого цикла происходит итерация по каждому элементу матрицы a[i,j]. Для каждого элемента выполняется следующая последовательность действий:
1. Инициализируются переменные s и k. Переменная s будет хранить сумму четных элементов, а переменная k - количество четных элементов.
2. Запускается цикл, который выполняется до тех пор, пока не будет найден первый нечетный элемент.
3. Если текущий элемент четный (остаток от деления на 2 равен 0), то увеличивается значение переменной k и переменная s обновляется, добавляя текущий элемент.
4. После завершения внутреннего цикла, если переменная k больше нуля, то переменная s обновляется, разделяя ее на k.
5. Если значение переменной q (которое хранит текущее среднее арифметическое) меньше текущего значения переменной s, то обновляется значение переменной q и переменная p обновляется, указывая на текущий элемент матрицы.
6. После завершения внешнего цикла, выводится значение переменной q. Таким образом, данный код выполняет следующие действия:
7. Инициализирует матрицу случайными числами.
8. Находит среднее арифметическое четных элементов каждой строки матрицы.
9. Выводит среднее арифметическое четных элементов каждой строки матрицы и соответствующий элемент матрицы, в котором оно было найдено.