Получить третий массив путем сложения соответствующих элементов первых двух - PascalABC.NET

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

Задать два двумерных массива одного размера. Получить третий массив путем сложения соответствующих элементов первых двух. Если получаемый элемент третьего массива больше 100, то его заменять на 100, если меньше 10, то заменять на 10, в других случаях оставлять без изменения. Все массивы вывести.

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

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

const n=5;m=6;
type myarr=array[1..n,1..m] of integer;
var
  a,b,c:myarr;
  i,j:integer;
procedure printArr(a:myarr;s:string);  
var
  i,j:integer;
begin
  writeln(s);
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:4);
    writeln;
  end;
end;  
begin
  randomize;
  for i:=1 to n do 
    for j:=1 to m do begin
      a[i,j]:=random(80);
      b[i,j]:=random(50);
      c[i,j]:=a[i,j]+b[i,j];
      if c[i,j]<10 then c[i,j]:=10 else if c[i,j]>100 then c[i,j]:=100;
    end;
  printArr(a,'A:');
  printArr(b,'B:');
  printArr(c,'C:');
end.

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

В начале кода объявляются константы n=5 и m=6, которые определяют размерность массива.
Затем объявляется тип данных myarr, который представляет собой двумерный массив целых чисел размером n на m.
Далее объявляются три переменные a, b и c типа myarr, которые будут использоваться для хранения трех копий исходного массива.
Затем объявляются две переменные i и j типа integer, которые будут использоваться для перебора элементов массива.
После этого определена процедура printArr, которая принимает в качестве параметров массив a и строку s. Эта процедура используется для вывода содержимого массива a в консоль.
В основной части кода инициализируются все элементы массива a случайными значениями в диапазоне от 0 до 79.
Затем инициализируются все элементы массива b случайными значениями в диапазоне от 0 до 49.
После этого происходит сложение соответствующих элементов массива a и b, и результат сохраняется в массиве c.
Если значение элемента массива c меньше 10, то он устанавливается равным 10. Если значение элемента массива c больше 100, то он устанавливается равным 100.
Затем вызывается функция printArr для вывода массива a.
Аналогично выводится массив b.
В конце кода вызывается функция printArr для вывода массива c.
Код завершается.