Сформировать третий массив из элементов двух исходных - PascalABC.NET

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

Произвольно заданы две одномерных массива.Сформировать третий массив, каждый элемент которого является максимальным элементом соответственно в каждом из двух исходных массивах.

Решение задачи: «Сформировать третий массив из элементов двух исходных»

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

begin
  Randomize;
  var n := ReadLnInteger('Размеры массивов: n =');
  var a := ArrRandom(n, 0, 99);
  var b := ArrRandom(n, 0, 99);
  var c := Arr(a);
  for var i := 0 to n-1 do c[i] := max(c[i], b[i]);
  WriteLn('a = ', a, NewLine, 'b = ', b, NewLine, 'c = ', c);
end.

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

В начале программы происходит инициализация генератора случайных чисел.
Затем программа запрашивает у пользователя размер массива (n) и сохраняет его в переменную n.
Далее, используя функцию ArrRandom, формируются два массива a и b, размером n, заполненные случайными числами от 0 до 99.
Создается третий массив c, который является копией массива a.
В цикле, для каждого элемента массива c, происходит сравнение его значения с соответствующим элементом массива b, и если значение элемента b больше значения элемента c, то значение элемента c присваивается максимальное из этих двух значений.
Выводится сообщение о массивах a, b и c.
Результатом работы программы будет вывод на экран массивов a, b и c, отсортированных по возрастанию.