Найти общую сумму положительных и кратных 5 элементов в трех массивах - Turbo Pascal

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

Программа с функциями и процедурами Даны три массива A[7,7], B[7,7], C[7,7]. Найти общую сумму положительных и кратных 5 элементов в этих массивах

Решение задачи: «Найти общую сумму положительных и кратных 5 элементов в трех массивах»

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

const m=7; n=m; dv=5; W=7;
type  TMatrix = array [1..m,1..n] of Integer;
procedure mGen(var a: TMatrix; b, c: Integer);
var i, j: Integer;
begin
  for i:=1 to m do for j:=1 to n do a[i,j]:=b+Random(c-b+1);
end;
procedure mWrite(const a: TMatrix);
var i, j: Integer;
begin
  for i:=1 to m do begin
    for j:=1 to n do Write(' ',a[i,j]:W); WriteLn;
  end;
end;
function SumD(const a: TMatrix; d: Integer): Integer;
var i, j, s: Integer;
begin
  s:=0;
  for i:=1 to m do for j:=1 to n do
    if (a[i,j] mod d=0) and (a[i,j]>0) then s:=s+a[i,j];
  SumD:=s;
end;
var a, b, c: TMatrix;
begin
  Randomize;
  mGen(a,-99,99); mGen(b,-99,99); mGen(c,-99,99);
  mWrite(a); mWrite(b); mWrite(c);
  WriteLn('Сумма положительных кратных ',dv,': ',
    SumD(a,dv)+SumD(b,dv)+SumD(c,dv));
end.

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

В начале кода определяются константы m, n и dv, которые представляют собой размеры массивов, тип данных и значение, на которое делится каждый элемент массива.
Затем определяются три переменные типа TMatrix - a, b и c, которые будут использоваться для хранения трех массивов.
Далее определены две процедуры - mGen и mWrite, которые используются для генерации и записи массивов соответственно. В процедуре mGen происходит генерация каждого элемента массива с помощью случайного числа от b до c-b+1, где b - это значение, на которое делится каждый элемент массива.
В процедуре mWrite происходит запись каждого элемента массива в стандартный вывод с пробелом перед каждым элементом.
Затем определена функция SumD, которая используется для вычисления общей суммы положительных и кратных заданному значению элементов массива. Функция использует два цикла for для перебора всех элементов массива и проверяет, является ли каждый элемент кратным заданному значению и положительным. Если это так, то сумма увеличивается на текущий элемент.
В конце кода вызываются процедуры mGen, mWrite и функция SumD для генерации, записи и вычисления суммы соответственно. Выводится общая сумма положительных и кратных заданному значению элементов массива.